не указано, как именно завершать ввод, поэтому сделал завершение словом 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
lsd
pwpefowpeofkpwef
123462048201180301313031
exit
Самая длинная строка с номером 9:
использовать Рисователь
алг
нач
в точку(150,200)
перо(3,черный)
окружность(150,200,50)
перо(3,черный)
окружность(235,170,38)
окружность(225,245,38)
окружность(160,290,38)
окружность(90,265,38)
окружность(60,195,38)
окружность(100,130,38)
окружность(175,115,38)
кисть(желтый)
залить(150,200)
кисть(красный)
залить(50,200)
кисть(оранжевый)
залить(100,100)
кисть(желтый)
залить(150,110)
кисть(зеленый)
залить(250,150)
кисть(голубой)
залить(200,250)
кисть(синий)
залить(150,270)
кисть(фиолетовый)
залить(100,250)
кон
h1, h2, m1, m2, s1, s2: integer;
begin
read(h1, m1, s1);
read(h2, m2, s2);
writeln((h2 - h1) * 3600 + (m2 - m1) * 60 + s2 - s1);
end.
не знаю как вторую без циклов решить