Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Проверьте ,пожалуйста, правильно ли составлена программа.

Задача: Из трёх чисел 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.

Ответ оставил Гость

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

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