Помогите найти большее из 4 чисел: 2,4,6,8. На языке Паскаль нужно написать.

1

Ответы и объяснения

2014-03-19T19:44:26+04:00
Program pr; Var a, b, c, d:integer; Begin readln(a,b,c,d); if a>b then if a>c then if a>d then writeln(a); if b>a then if b>c then if b>d then writeln(b); if c>a then if c>b then if c>d then writeln(c); if d>a then if d>b then if d>c then writeln(d); end.