Question

ПОМОГИТЕ ПОЖАЛУЙСТА!!!!! Задумать день недели (ввести с клавиатуры порядковый номер от 1 до 7). Удвоить задуманный номер. Увеличить полученное число на 5. Умножить на 5, умножить на 10. Вывести результат. Написать программу, которая по результату работы предыдущей программы отгадывает, какое число было задумано. PASCALabc

Answer 1

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

Answer 2

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

Answer 3

Для написания программы, которая отгадывает задуманное число, следуйте следующим шагам:

1. Попросите пользователя ввести результат, который получен после выполнения операций: удвоить номер, увеличить на 5, умножить на 5 и умножить на 10.

2. Разделите полученное число на 100 (поскольку мы производили несколько операций, умножая на 5 и 10, в итоге у числа будет стоять два нуля).

3. Отобразите полученное значение, которое и будет задуманным числом (порядковым номером дня недели).

Приведу пример программы на PascalABC:

pascalCopy code
program GuessDayOfWeek;

var
  userInput, guessedNumber: Integer;

begin
  { Попросим пользователя ввести результат после всех операций }
  WriteLn('Введите результат операций (удвоить, увеличить на 5, умножить на 5, умножить на 10): ');
  ReadLn(userInput);

  { Делим полученное число на 100, чтобы получить искомый порядковый номер дня недели }
  guessedNumber := userInput div 100;

  { Проверяем, что число находится в диапазоне от 1 до 7 }
  if (guessedNumber >= 1) and (guessedNumber <= 7) then
  begin
    WriteLn('Предполагаю, что задуманный день недели: ', guessedNumber);
  end
  else
  begin
    WriteLn('Некорректный ввод. Задуманный день недели не может быть отличен от числа от 1 до 7.');
  end;
end.

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