Задание:
Pascal. Написать алгоритм нахождения максимума из трех чисел (a,b,c) на языке Паскаль.
Решение:
uses crt; var a,x,y,z: integer; begin Write ('x='); read (x); Write ('y='); read (y); Write ('z='); read (z); if x>y then a: =1else a: =0; if (a=1) and (x>z) then write ('x-bolwe'); if (a=0) and (x
Знаете другой ответ?