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

Question

Информатика

Керкира

9 сентября, 19:35

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

+5

Ответы (2)

Знаете ответ?

Нина · Answer 1

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.

Рада · Answer 2

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.