Задумать день недели (ввести с клавиатуры порядковый номер от 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 (шаг).
Жмем на откладку вверху и смотрим результат
Готово))
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Andrey545431.07.2021 10:04
-
кирилл208821.06.2023 04:26
-
димасик13803.03.2022 20:33
-
Ануар2217.10.2021 14:56
-
алькамалька03.01.2021 19:06
-
Madi12kz21.07.2020 10:46
-
2222222222709.05.2020 20:07
-
alanasia200418.03.2021 20:46
-
valerijsafonov28.12.2020 02:44
-
persik2178308653212.10.2021 11:22
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.