Budwyn 28 ноября 2019 в 05:49

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

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

Var n:integer;s:real;
begin
writeln(Загадай однозначное число)
read(n);
s:=n;
s:=s*2+n;
s:=s/n;
writeln(s);
end.

248 0

Для комментирования необходимо зарегистрироваться на сайте