Регистрация
QueenKulumshina
30.04.2021 20:46
Информатика
Есть ответ 👍

Пользователь вводит подряд 15 чисел.программа выбирает и печатает наибольший из них.

170
186
Посмотреть ответы 2

Ответы на вопрос:

GrigoriiBogdanov
GrigoriiBogdanov
4,4(6 оценок)
Вчем этот
ternya1sd
ternya1sd
4,4(16 оценок)
Var   s,q: string;   i,n,j,m,k,l: longint; begin   readln(s);   m: =0;   s: =' '+s+' ';   for i: =1 to length(s) do  if s[i]< > ' ' then   begin     if s[i-1]=' ' then l: =i;     if s[i+1]=' ' then     begin       inc(m);     end;     end;   writeln(m); end.

Популярно: Информатика