Ну алгоритм завести перменную под строку и переменную под её длину
- считать первую строку через getline() и принять её самой длинной, запомнить её длину
- в цикле считывать следующую строку и проверять не больше ли её длина той нашей самой длинной на текущий момент, если больше - запомнить эту как самую длинную и считывать дальше...
- вывести результаты
Пробуйте, если что-то не получиться - пишите сюда код и что не получилось укажите.
Объяснение:
Спасибо
Ответ дал: Гость
Program xxx; var n, s, k, c : integer; sa : real; begin write ('введите число n-'); readln (n); k: =0; s: =0; while n> 0 do begin c: = n mod 10; s: =s+c; k: =k+1; n: =n div 10 end; write ('сумма цифр = ', s); write ('количество цифр =', k); sa: =s/k; write ('среднее арифметическое =', sa) end.
Ответ дал: Гость
объединение северного и южного египта произошло около 3000 г. до н.э.
Популярные вопросы