Решить задачу: Даны три числа. Найти наибольшее (написать программу)

Question

Информатика

Веля

22 февраля, 18:39

Решить задачу: Даны три числа. Найти наибольшее (написать программу)

+2

Ответы (1)

Знаете ответ на вопрос?

Арий · Answer 1

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.