Pascal. написать программу: нахождения цифры - вопрос №3191823 от Lord222435 22.05.2022 18:25

Question

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

Lord222435 · 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.