Найдите наибольшее из трех данных чисел (paskal abc)
Answers & Comments
Nobunaga
Var a,b,c:integer; begin; readln(a); readln(b); readln(c); if (a>b) and (a>c) then writeln(a); if (b>a) and (b>c) then writeln(b); if (c>a) and (c>b) then writeln(c); end.
Answers & Comments
begin;
readln(a);
readln(b);
readln(c);
if (a>b) and (a>c) then writeln(a);
if (b>a) and (b>c) then writeln(b);
if (c>a) and (c>b) then writeln(c);
end.