Pascal. написать программу: нахождения цифры - вопрос №93191146 от Radmirka1337 31.07.2020 09:26

Question

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

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