Question

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

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

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

Answer 3

число не меньше 1