История, вопрос опубликован 03.03.2019 20:47 phyf

Вводятся строки. определить самую длинную строку и вывести её номер на экран.без массива, интернета.pascal abc. ​

Ответы
Ответ добавил: Гость

фрезка.пишуться по свіжій штукатурці,розведенними водою фарбами,причому писати треба дуже швидко поки куля шрукатурки не висохнув.зате малює художник на столліття,висихаючи штукатурка намертво зєднується з барвистим кулею.

Ответ добавил: Гость

керей-хан (1465-1472)

Ответ добавил: Гость
Uses crt; type fil=text; var f1: fil; a,b,c: string; i,w,n,y: integer; procedure wwod; begin assign(f1,'t1.dat'); rewrite(f1); writeln('введите кол-во строк в файле: '); readln(y); for i: = 1 to y do     begin     writeln('введите ',i,' строку');   {}  
  readln(a);     writeln(f1,a);     end; close(f1); end; procedure prosm; begin assign(f1,'t1.dat'); reset(f1); writeln('содержание текстового файла: '); while not eof(f1) do       begin       a: ='';      
readln(f1,a);       writeln(a)       end; close(f1); end; procedure naxod; var max: string; i,i1: integer; begin assign(f1,'t1.dat'); reset(f1); max: =''; i: =1; i1: =0; while not eof(f1) do       begin       a: ='';
      readln(f1,a);       if length(a)> length(max) then begin                           max: =a;                    
      i1: =i;                                 end;     inc(i);     end; writeln('самая длинная строка: ',max,' (',i1,')'); reset(f1); i: =1; while not
eof(f1) do       begin       a: ='';       readln(f1,a);       if (length(max)=length(a)) and (i< > i1)         then   writeln('еше одна самая длинная строка: ',max,' (',i,')');  
    inc(i);       end; close(f1); {} end; begin w: =0;       {обнуляем переменную для выбора меню} while w< > 4 do begin   {пока не равно 4 }       writeln('           меню программы');
      writeln('1-создание текстового файла');       writeln('2-просмотр текстового файла');       writeln('3-нахождение длинного строки');       writeln('4-выход из программы');       write('    
        ваш выбор -> ');       readln(w);       case w of           1: wwod;           2: prosm;           3: naxod;    
      end;       writeln       end; end.
Больше вопросов по истории
Предмет
История, опубликовано 12.03.2019 16:00