Страницы 168-173 параграф 4 3 вопрос / задание 16, ГДЗ по информатике за 8 класс к учебнику Босовой просвещение

х – число дня рождения; m – номер месяца рождения.

program Z_16_3;

var

  s: string;

  x, m, rez: integer;

begin

  write('Введи свое имя > ');

  readln(s);

  writeln('Умножь число даны рождения на 2');

  writeln('Прибавь к результату 5');

  writeln('Умножь результат на 50');

  writeln('Прибавь к результату номер месяца, в котором родился >');

  write('Сообщи результат >');

  readln(rez);

  x := rez - 250;

  m := x mod 100;

  x := x div 100;

  writeln(s, '! День твоего рождения: ', x, ' месяц: ', m);

end.

Окно вывода:

Введи свое имя > Иван

Умножь число даны рождения на 2

Прибавь к результату 5

Умножь результат на 50

Прибавь к результату номер месяца, в котором родился >

Сообщи результат >2354

Иван! День твоего рождения: 21 месяц: 4