Проверьте ,, правильно ли составлена программа. : из трёх чисел x,y,z найти наибольшее. нужно, чтобы в программе было полное ветвление (if логическое условие then оператор 1 else оператор 2) или неполное ветвление (if логическое условие then оператор 1) program chislo; uses crt; var x,y,z,p: integer; begin clrscr; writeln ('введите первое число'); readln (x); writeln ('введите второе число'); readln (y); writeln ('введите третее число'); readln (z); if x> y then p: =x else p: =y; if x> z then p: =x else p: =z; if y> z then p: =y else p: =z; if y> x then p: =y else p: =x; if z> x then p: =z else p: =x; if z> y then p: =z else p: =y; writeln ('наибольшее число: ',p); end.

аааааааааппппппааааа    3   21.05.2019 18:40    24