Задумать день недели (ввести с клавиатуры порядковый номер от 1 до 7). удвоить задуманный номер. увеличить полученное число на 5. умножить на 5, умножить на 10. вывести результат. написать программу, которая по результату работы предыдущей программы отгадывает, какое число было задумано. pascalabc

{pascalabc}

program puzzle;

var  

  r,day: integer;  

  week: array[1..7] of string;

  i: integer;

  s: string;

begin

  week[7]: ='воскресенье';

  week[6]: ='суббота';

  week[5]: ='пятница';

  week[4]: ='четверг';

  week[3]: ='среда';

  week[2]: ='вторник';

  week[1]: ='понедельник';

  s: ='**** -=alphaeus=- ****';

  for i: =1 to 22 do begin write(s[i]); sleep(200) end;

  writeln; writeln('ок, задумайте день недели (номер от 1 до 7)');

  writeln('удвойте этот номер');

  writeln('увеличьте результат на 5');

  writeln('умножьте полученное число на 5');

  writeln('теперь то, что получилось, умножьте на 10');

  writeln('введите полученный результат'); readln(r);

  day: = round((r-250)/100);

  writeln('**************************************');

  case day of

    1..7: writeln('       вы задумали ',week[day]);

    else writeln('что-то пошло не либо вы задумали не число между 1 и 7, либо ошиблись в рассчётах')

  end;

  writeln('**************************************');

end.

Появилось две линии, стрелочка начала зацикливаться. Получается алгоритм будет выполняться бесконечное количество раз. Чтобы более точно ответить на письменный вопрос - можете провести идентичные действия:

Заходим в ГРИС.

Нажимаем "Начать"

Нажимаем F4(поворот) три раза. (В условии сказано, что исходное положение: ГРИС — в левом верхнем углу, направление — вниз.)

Теперь нажимаем F8(цикл) - выбираем: Пока впереди не стена.

Следующим этапом нажимаем F5 (описание). В появившейся строке нужно написать ПУТЬ и нажать Enter. Чтобы отключить окно нажимаем Esc. Жмем ещё два раза Enter.

Нажимаем: F4 - F3 - F4 (поворот - прыжок - поворот).

При откладки (вверху) спускаемся в самый низ на панели наших действий (слева).

Жмем F8 - Пока впереди стена.

Жмем F2 (шаг).

Жмем на откладку вверху и смотрим результат

Готово))