Информатика, 21.05.2020 19:30, ulianna26

Program n_16;
var a, b,c:integer;
begin
b:=random(100);
writeln ('Дополните заданное программой число до 100');
write('Введите число дополняющее чиcло ',b,' до 100»');
readln(a);
if (a+b=100) then writeln('Число подобрано верно')
else if (a+b<>100) then writeln('Число подобрано неверно');
end.
Переведите на

Всего ответов: 3

Другие вопросы по Информатике

Знаешь правильный ответ?

Program n_16; var a, b,c:integer; begin b:=random(100); writeln ('Дополните заданное программой числ...

Вопросы по предметам