Информатика, опубликовано 2018-08-22 21:53:42 by Гость
Напишите программу находящую максимальное из четырех чисел (используйте процедуру для поиска максимального из двух чисел)
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.