Из чисел a, b, c, d выбрать максимальное. решение!

juliettehasagun juliettehasagun    1   18.07.2019 23:10    11

Ответы
pichtook1 pichtook1  17.04.2020 04:15
Var a,b,c,d,max:integer;
begin
read(a);
max:=a;
read(b);
if b>max then
max:=b;
read(c);
if c>max then
max:=c;
read(d);
if d>max then
max:=d;
writeln(max);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика