Задание 16 Параграф 4.3 ГДЗ Босова 8 класс 2023 (Информатика)

Задача

var
st: string;
d, m, rez: integer;
begin
write(‘Введи свое имя > ‘);
readln(st);
writeln(‘Умножь число даты рождения на 2’);
writeln(‘Прибавь к результату 5’);
writeln(‘Умножь результат на 50’);
writeln(‘Прибавь к результату номер месяца, в котором родился’);
write(‘Сообщи результат > ‘);
readln(rez);
d := rez — 250;
m := d mod 100;
d := d div 100;
writeln(st, ‘. День твоего рождения ‘, d,’-ое’, ‘ месяц ‘, m);
end.
Окно вывода
Введи свое имя > Ирина
Умножь число даты рождения на 2
Прибавь к результату 5
Умножь результат на 50
Прибавь к результату номер месяца, в котором родился
Сообщи результат > 752
Ирина. День твоего рождения 5-ое месяц 2

Подробный ответ

Пусть день рождения — это число $$d$$, а месяц — $$m$$.

По условию человек выполняет такие действия:

$$d \cdot 2$$

$$2d + 5$$

$$50(2d + 5) = 100d + 250$$

$$100d + 250 + m$$

Если из результата вычесть $$250$$, получим:

$$100d + m$$

Значит, последние две цифры числа — это номер месяца $$m$$, а оставшаяся часть — день $$d$$.

Программа должна запросить имя, затем результат вычислений, вычесть $$250$$, выделить месяц с помощью операции $$mod$$, а день — с помощью операции $$div$$.

var
  st: string;
  d, m, rez: integer;
begin
  write(‘Введи свое имя > ‘);
  readln(st);
  writeln(‘Умножь число даты рождения на 2’);
  writeln(‘Прибавь к результату 5’);
  writeln(‘Умножь результат на 50’);
  writeln(‘Прибавь к результату номер месяца, в котором родился’);
  write(‘Сообщи результат > ‘);
  readln(rez);
  d := rez — 250;
  m := d mod 100;
  d := d div 100;
  writeln(st, ‘. День твоего рождения ‘, d, ‘-ое месяц ‘, m);
end.

При вводе результата $$752$$ получаем:

$$752 — 250 = 502$$

$$502 \mod 100 = 2$$ — месяц,

$$502 \div 100 = 5$$ — день.