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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Гость

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 так корректнее, потому что в первом ответе не учтено равенство чисел.

Accepted Answer

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.