Решить задачу: Даны три числа. Найти наибольшее (написать программу)
Решить задачу: Даны три числа. Найти наибольшее (написать программу)
Гость
Ответ(ы) на вопрос:
Гостьprogram qq;
var a,b,c, max:real;
begin
read(a,b,c);
if (a>b) then
begin
if (a>c) then max:=a
else max:=c;
end
else
begin
if (b>c) then max:=b
else max:=c;
end;
writeln(max);
end.
Не нашли ответ?
Похожие вопросы