• с клавиатуры заданы 3 числа,найдите наибольшее из этих чисел , вывести эти числа на экран в порядке убывания

Ответы 1

  • Program n1;procedure Sort(var A, B, C: integer);var t: integer;begin if A < B then begin t := B;B := A;A := t end;if A < C then begint := C;C := A;A := tend;if B < C then begint := C;C := B;B := tendend;vara,b,c: integer;beginwriteln('Введите три числа: ');readln(a,b,c); Sort(a,b,c); writeln('наибольшее: ',a);writeln('числа: ',a,' ',b,' ',c);end.
  • Добавить свой ответ

Войти через Google

или

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

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

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