Есть ответ 👍

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

196
356
Посмотреть ответы 3

Ответы на вопрос:


{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.


Program ex1; var a, b: real; begin readln(a); b: =((a/50)-5)/2; writeln('задуманное число - ',b); end.
myster2
4,7(97 оценок)

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

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

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

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

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

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

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

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

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

Жмем F2 (шаг).

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

Готово))


осень интернет урок) надо скриншот Выполните задание в ГРИС «Стрелочка». Исходное положение: ГРИС —

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS