Выполнить алгоритм. Начало 1. Загадай однозначное число не меньше. 2. Умножить число на 2. 3. Прибавь загаданное число. 4. Разделить на загаданное число. 5. Результат. Конец

Question

Степуня

11 марта, 05:16

+4

Ответы (2)

Знаете ответ на вопрос?

Люся · Answer 1

Var n:integer; s:real;

begin

writeln ('Загадай однозначное число') '

read (n) ;

s:=n;

s:=s*2+n;

s:=s/n;

writeln (s) ;

end.

Андрюха · Answer 2

Число не меньше скольки нужно загадать?