Предмет: Информатика,
автор: nastyshakirpic
напишите програму поиска максимального из двух чисел
Ответы
Автор ответа:
0
program ufhg;
uses crt;
var a,b,c,d, m: integer;
begin
readln(a,b,c,d);
m:=a;
if(b>m) then m:=b;
if(c>m) then m:=c;
if(d>m) then m:=d;
writeln(m);
end.
uses crt;
var a,b,c,d, m: integer;
begin
readln(a,b,c,d);
m:=a;
if(b>m) then m:=b;
if(c>m) then m:=c;
if(d>m) then m:=d;
writeln(m);
end.
Похожие вопросы
Предмет: Алгебра,
автор: trygretta
Предмет: Математика,
автор: loll58
Предмет: Русский язык,
автор: yfyfyfyfyf
Предмет: Геометрия,
автор: Ksenia1232