Составьте программу для отгадывания с помощью компьютера задуманного числа. Компьютер...

Question

Составьте программу для отгадывания с помощью компьютера задуманного числа. Компьютер предлагает исполнителю произвести следующие действия и ввести результат:
а) умножить задуманное число на 5
б) прибавить 8
в) сумму умножить на 2
По введенному результату компьютер определяет число и печатает его на экране

Answer 1

Var i:integer ;begin  writeln ('загадайте число ,умножте на 5,прибавте 8,умножте на 2 и введите что получилось '); readln(i);writeln (i div 10); end.

Comments

var i:integer ;
begin
writeln ('загадайте число ,умножте на 5,прибавте 8,умножте на 2 и введите что получилось ');
readln(i);
writeln (i div 10);
end.

---

writeln (((i div 2)-8)div 5);

---

вот так лучше

---

и там у меня ошибка должно быть так

---

writeln ((i div 10)-1);

---

извините