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

Задача

var
x,d: integer;
begin
randomize;
x:=random(100);
write(‘Дополни ‘,x,’ до 100 > > ‘);
readln(d);
if (x+d=100) then writeln(‘Правильно!’)
else writeln(‘Неправильно!’)
end.
Окно вывода
Дополни 7 до 100 > > 50
Неправильно!
Дополни 51 до 100 > > 49
Правильно!

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

Случайным образом выбираем целое число $$x$$, меньшее $$100$$. Затем просим пользователя ввести число $$d$$, которое нужно прибавить к $$x$$, чтобы получилось $$100$$. После ввода проверяем условие $$x+d=100$$. Если оно выполняется, выводим сообщение «Правильно!», иначе — «Неправильно!».

var
  x, d: integer;
begin
  randomize;
  x := random(100);
  write(‘Дополни ‘, x, ‘ до 100 >> ‘);
  readln(d);
  if (x + d = 100) then writeln(‘Правильно!’)
  else writeln(‘Неправильно!’);
end.

Пример работы программы:

Дополни 7 до 100 >> 50
Неправильно!

Дополни 51 до 100 >> 49
Правильно!