Даны три целых числа. Вывести на экран наибольшее из трех введенных чисел.

Question

Информатика

Стеха

30 сентября, 01:52

Даны три целых числа. Вывести на экран наибольшее из трех введенных чисел.

+5

Ответы (2)

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

Гонеста · Answer 1

Var a, b, c:integer;

Begin

Write ('Введите три целых числа: ') ; ReadLn (a, b, c) ;

if b>a then a:=b;

if c>a then a:=c;

WriteLn (a) ;

End.

Аидка · Answer 2

Program GH;

Var a, b, c, max:integer;

Begin

Writeln ('введите а ') ;

Read (a) ;

Writeln ('введите b') ;

Read (b) ;

Writeln ('введите c') ;

Read (c) ;

Begin

If a>b and a>c then max:=a

Else if b>c then max:=b

Else max:=c;

End;

Writeln ('наибольший элемент равен', max) ;

End.