ТутРешу.Ру

Pascal. Написать алгоритм нахождения максимума из трех чисел

Задание:

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 (xy) then a: =3; if (a=0) and (y>z) then write ('y-bolwe'); if (a=3) thenwrite ('z-bolwe'); read; end. Находит большее из 3-х, ты ведь это имела ввиду)




Знаете другой ответ?

Отправить свой ответ