Регистрация
алибек29
09.12.2021 13:22
Информатика
Есть ответ 👍

11 вариант

паскаль информатика​

182
254
Посмотреть ответы 1

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

tibeck120
tibeck120
4,6(73 оценок)
Program prog; uses crt; var x,y: integer; begin clrscr; write ('x = '); readln(x); while abs(x)> 0 do begin if abs(x mod 10)> y then y: = abs(x mod 10); x: = x div 10; end;   writeln('наибольшая цифра чсла = ', y);     end.   

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