Регистрация
pashahitman1900
07.02.2023 18:12
Информатика
Есть ответ 👍

Поисковая система в интернете позволяет найти: любые документы в сети интернет или документы локальной сети школы

163
212
Посмотреть ответы 3

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

КаМиЛлА777
КаМиЛлА777
4,4(18 оценок)
Любые документы в сети интернет
Неко6тян
Неко6тян
4,5(15 оценок)
Любые документы в сети интернет
juliatroenko
juliatroenko
4,7(15 оценок)

program pr1; uses crt; var mas: array[byte] of integer; fl1,fl2: text; stroka: string; b,v,c,max,i: integer; beginclrscr; assign(fl1,'e.in'); assign(fl2,'e.out'); reset(fl1); readln(fl1,stroka); close(fl1); for i: =1 to length(stroka) do val(stroka[i],mas[i],b); b: =length(stroka); max: =1; v: =0; for i: =1 to b do if mas[i]> v then if mas[i]> max then max: =mas[i] else v: =mas[i]; c: =max*v; rewrite(fl2); writeln(fl2,c); close(fl2); end.

 

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