• на языке Паскаль ввести 4 числа и вывести большее из них

Ответы 1

  • С циклом for для натуральных чисел: var a, i, max:integer;beginmax:=0;writeln ('Введите натуральное число');for i:=1 to 4 dobeginreadln (a);if (a>max) then max:=a;end;writeln ('Максимальное число ', max);end.
  • Добавить свой ответ

Войти через Google

или

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

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

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