Напишите программу находящую максимальное из четырех чисел (используйте процедуру для поиска максимального из двух чисел)
Напишите программу находящую максимальное из четырех чисел (используйте процедуру для поиска максимального из двух чисел)
Гость
Ответ(ы) на вопрос:
Гость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.
Гостьvar
a, b, c, d: integer;
function max(i1, i2: integer): integer;
begin
if i1 > i2 then max := i1 else max := i2;
end;
begin
read(a, b, c, d);
writeln(max(max(max(a, b), c), d));
end.
не помню как процедуры писать, но с функциями даже удобнее
Не нашли ответ?
Похожие вопросы