Написать компьютерную программу для отгадывания с компьютера задуманного числа и проверять ,что в результате в результате вычислений не произошла ошибка ,и полученное число является правильным .Компьютер предлагает исполнителю произвести следующие действия и ввести результат:
Задумать натуральное число
Умножить его на семь
Прибавить к результату 100
var i:integer ;begin writeln ('загадайте число ,умножте на 5,прибавте 8,умножте на 2 и введите что получилось '); readln(i);writeln (((i div 2)-8)div 5); end.
var I:integer; begin writeln (' загадайте число умножьте на 5, прибавьте 8, умножьте 2 и введите что получилось');
readln(I); writeln(((I div 2)-8) div 5); end.