Составьте программу для Pascal
Определить, сколько букв содержит самое длинное слово во введенной строке символов.
Входные данные
На вход программе подается строка, состоящая не более чем из 255 символов. Слова разделяются одним или несколькими пробелами.
Выходные данные
Выведите искомое число.
Примеры
входные данные
abcd ef
выходные данные
4
243
431
Ответы на вопрос:
Var u1, u2, n, i: longint; a: array[1..10000] of longint; begin readln(n); for i : = 1 to n do read(a[i]); u1 : = 1; u2 : = n; while (u1 < u2) do begin write(a[u1],' ',a[u2],' '); inc(u1); dec(u2) end; if u1 = u2 then write(a[u1]) end.
Популярно: Информатика
-
08122005vlad04.10.2022 16:58
-
Exem7621.12.2021 03:01
-
kerikan22.09.2022 13:49
-
vladuha69130.10.2020 20:55
-
Bogalexx26.03.2022 06:31
-
Aigerim80030.09.2022 15:14
-
igvolume1129.04.2020 11:00
-
fghjik18.12.2020 03:38
-
Pomogiteπ26.05.2021 22:56
-
Vzorr19.08.2020 05:38