Напишите задачу для обработки натурального числа в паскале
Answers & Comments
HRAshton
Var i: real; //Натуральное число begin readln(i); //Считал число while (i > 5) do //В условном цикле... i := i / pi; //...преобразовал число writeln(i); //Вывел число end.
Answers & Comments
i: real; //Натуральное число
begin
readln(i); //Считал число
while (i > 5) do //В условном цикле...
i := i / pi; //...преобразовал число
writeln(i); //Вывел число
end.