Составить алгоритм с разветвлением "Является ли девушка принцессой" (по сказке "Принцесса на горошине")
Program Princess;
uses crt;
var
M:Integer;
begin
writeln(***************************************);
writeln(* Вас приветствует ППП *);
writeln(* Программа Проверки Принцесс *);
writeln(* *);
writeln(* Сейчас узнаем... *);
writeln(***************************************);
writeln(1. Постелите постель для девушки);
writeln(2. Подложите горошину);
writeln(3. Дождитесь утра...);
writeln(4. Разбудите девушку);
writeln(5. Спросите: "Как Вам спалось?" );
writeln(6. Введите в систему ответ девушки:);
writeln( 0 - "Плохо, совсем не сомкнула глаз..." );
writeln( 1 - "Отлично выспалась" );
readln(M);
writeln(***************************************);
writeln(* Итак... *);
if m=0 then
writeln(* Эта девушка - настоящая принцесса! *)
else
writeln(* Увы! Эта девушка - не принцесса! *);
writeln(***************************************);
end.
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
