Регистрация
asdfghjkl115
12.05.2020 10:55
Информатика
Есть ответ 👍

Составьте две таблицы по этим примерам​

225
266
Посмотреть ответы 1

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

sesew228
sesew228
4,5(87 оценок)
Var i,n,s,max: integer; k,h: string; begin max: =0; writeln('введите кол-во чисел'); readln(n); for i: =1 to n do begin readln(s); str(s,k); if pos('0',k)=0 then begin if s> max then max: =s; end; end; writeln(max); end.

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