составить программу вычисляющее наибольшее из 3 заданных чисел (паскаль)

Question

Информатика

Клеопатра

15 июня, 04:12

составить программу вычисляющее наибольшее из 3 заданных чисел (паскаль)

+5

Ответы (2)

Знаете ответ?

Климентий · Answer 1

var

a, b, c, m : integer;

begin

read (a, b, c) ;

m : = a;

if b > m then m : = b;

if c > m then m : = c;

writeln (m) ;

end.

ps так корректнее, потому что в первом ответе не учтено равенство чисел.

Желика · Answer 2

var

a, b, c:integer;

writeln ('a, b, c') ; readln (a, b, c) ;

if (a>b) and (a>c) then writeln (a) ;

if (b>a) and (b>c) then writeln (b) ;

if (c>b) and (c>a) then writeln (c) ;

end;

можно через один if.