Вводятся строки. Определить самую длинную строку и вывести её номер на экран.Паскаль ABC, без массива.
Ответы
Ответ дал:
0
Программа написана на PascalABC.NET 3.4.2, сборка 1979 (16.02.2019), но компилироваться должна и на обычном Pascal
не указано, как именно завершать ввод, поэтому сделал завершение словом exit
Код
- program task31784852;
- var
- number, maxLength, maxNumber: integer;
- inputIsTrue: boolean;
- inputString, maxLengthString: string;
- begin
- inputIsTrue := false;
- maxLength := 0;
- Writeln('Напишите exit, чтобы завершить ввод и получить результат');
- while inputIsTrue = false do
- begin
- Readln(inputString);
- if Length(inputString) = 0 then
- continue;
- if inputString = 'exit' then
- break;
- number := number + 1;
- if Length(inputString) > maxLength then
- begin
- maxLength := Length(inputString);
- maxLengthString := inputString;
- maxNumber := number;
- end;
- end;
- Writeln('Самая длинная строка с номером ', number, ': ', maxLengthString);
- end.
Проверка
Напишите exit, чтобы завершить ввод и получить результат
a
aa
aaa
aaaaaalsd
pwpefowpeofkpwef
................
...................
123462048201180301313031
https://znanija.com/task/31784852
exit
Самая длинная строка с номером 9: https://znanija.com/task/31784852
Ответ дал:
0
в проверке сайт немного урезал ссылку (там должно быть https://), а не просто znanija.com, так что там всё правильно
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад