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.
Переведите на

danek20063    2   21.05.2020 19:30    1