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

Question

Ульяныч

19 августа, 15:34

+5

Ответы (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

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