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

Question

Информатика

Петяня

10 марта, 14:40

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

+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.