Question

Помогите пожалуйста Основы программирования

Answer 1

Ответ:

program p1;

var a,b:integer;

begin

writeln ('Введите 2 числа');

readln (a,b);

if a=b then writeln ('Числа одинаковые')

else if a>b then

begin writeln ('Наибольшее число ',a);

writeln ('Наименьшее число ',b);

end

else begin writeln ('Наибольшее число ',b);

writeln ('Наиментшее число 10 ',a);

end;

end.

program p2;

var a,b,c,d:integer;

begin

writeln ('Введите 4 числа');

readln (a,b,c,d);

if a<b then a:=b;

if c<d then c:=d;

if a<c then a:=c;

writeln ('Наибольшее число ',a);

end.

Объяснение: