Номер 14, страница 181 - гдз по информатике 8 класс учебник Босова, Босова

Глава 4. Начала программирования на языке Паскаль. Параграф 4.4. Программирование разветвляющихся алгоритмов. Вопросы и задания - номер 14, страница 181.

Условие.

14. Напишите программу, в которой пользователю предлагается дополнить до 100 некоторое целое число а (а - случайное число, меньшее 100). Ответ пользователя проверяется и комментируется.

Решение.

var
a,b: integer;
begin
randomize;
a:=random(100);
writeln ('a=',a);
b:=100-a;
writeln ('Надо дополнить на ', b);
if a+b=100 then writeln ('Верно a+b=', a+b)
else writeln ('Неверно a+b=', a+b);
end.