Pascal. написать программу: нахождения цифры в - вопрос №3191823 от katya0132 08.04.2020 08:45

Question

Информатика: Pascal. написать программу: нахождения цифры в числе с максимальным значением. 9й класс.

katya0132 · Answer

uses crt;
var a,Max,x:integer;
begin
  clrscr;
  Write('Введите число: ');
  readln(a);
  Max:=a mod 10;
  while a>0 do
begin
x:=a mod 10;
a:=a div 10;
  if x>Max then Max:=x;
end;
Writeln('Максимальная цифра: ',Max);
readln;
end.