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

Ответы 1

  • 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.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years