Ответы на вопрос:
{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.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
guardrus24.09.2021 07:31
-
aygulmurzanaev02.02.2023 01:06
-
ислам111021.05.2023 05:32
-
Anastasia15Kovaleva11.07.2020 10:39
-
Куколканупка28.07.2022 23:02
-
Serdechkiцветочек11.07.2021 06:29
-
Vladlena15121510.03.2020 19:37
-
maxdemplay10.06.2023 16:20
-
andrewmikilov12.09.2022 09:32
-
yagodka34327.05.2020 18:50
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.