Напишите программу, в которой пользователю предлагается дополнить до 100 некоторое целое число а ( а – случайное число меньше 100 )
Напишите программу, в которой пользователю предлагается дополнить до 100 некоторое целое число а ( а – случайное число меньше 100 )
1 2 3 4 5 6 7 8 9 10 |
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. |
©Решение предоставил Дрюк Иван
Будем благодарны, если вы поделитесь данной записью со своими друзьями в социальных сетях, оставите отзыв и посмотрите другие материалы на нашем сайте.