profile
Опубликовано 10 месяцев назад по предмету Информатика от Ботанниккус

Составить алгоритм с разветвлением "Является ли девушка принцессой" (по сказке "Принцесса на горошине")

  1. Ответ
    Ответ дан Alphaeus

    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.

Самые новые вопросы