Question

Проверьте ,, правильно ли составлена программа. : из трёх чисел 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.

Answer 1

Да, все верно.

Есть только полное ветвление.

Answer 2

Программа составлена правильно, но можно сделать компактнее

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;
WriteLn ('Наибольшее число:',p);
End.

Я вырезал

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;

потому что это бесмысленный движения, а так задача работает.

Вопросы, неточности в ЛС