Гермоген 25 октября 2019 в 06:39

Записать на языке Паскаль

Var a, b, c, min, max, answer : integer;
begin
read(a,b,c);

min := a;
max := b;
if min gt; b then min:=b;
if min gt; c then min:=c;
if max lt; b then max:=b;
if max lt; c then max:=c;

writeln("max =", max);
writeln("min =", min);

if (max gt; 0) and (min gt; 0) then answer:=a+b+c
else answer:=a*b*c;

writeln("ответ = ", answer);
end.
Для комментирования необходимо зарегистрироваться на сайте