Составить программу, которая упорядочивает 2 числа по убыванию и находит максимальное из них.

Question

Информатика

Виолетта

19 июня, 15:08

Составить программу, которая упорядочивает 2 числа по убыванию и находит максимальное из них.

+3

Ответы (2)

Знаете ответ на вопрос?

Фиста · Answer 1

Var a, b:integer;

begin

writeln (a) ;

readln (a) ;

writeln (b) ;

readln (b) ;

if a>b then writeln (a, ', ', b) else writeln (b, ', ', a) ;

if a>b then writeln (a, ' - максимум') else writeln (b, ' - максимум') ;

end.

Эмилиан · Answer 2

Uses crt;

var x, y, max: real;

begin

read (x, y) ;

writeln;

if x>y then begin

write (x,' ', y) ;

max:=x;

end

else begin

max:=y;

write (y,' ', x)

end;

writeln;

writeln ('Максимум: ', max) ;

end.