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

Question

Ульяныч

1 ноября, 07:14

+1

Ответы (2)

Знаете ответ?

Олимпиада · Answer 1

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

Арсеныч · Answer 2

Var n:integer; s:real;

begin

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

read (n) ;

s:=n;

s:=s*2+n;

s:=s/n;

writeln (s) ;

end.