Question

Ребят ,кто шарит в информатике ?
В виде алгоритма сделайте пожалуйста

Answer 1

А)

var a,b:integer;

begin

writeln ('Введите два целых числа:');

read (a,b);

if a > b then begin

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

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

end

else begin

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

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

end;

end.

В)

var a,b,c,d,max:integer;

begin

writeln ('Введите четыре целых числа:');

read (a,b,c,d);

max:=a;

if b > max then begin

max:=b;

end;

if c > max then begin

max:=c;

end;

if d > max then begin

max:=d;

end;

writeln ('Максимальное число ',max);

end.