Выполнить округление натурального числа N с точность до десятков (стандартные функции округления и функции работы со строками не использовать)
Выполнить округление натурального числа N с точность до десятков (стандартные функции округления и функции работы со строками не использовать)
Гость
Ответ(ы) на вопрос:
Гостьvar
n: integer;
a,b: integer;
begin
Readln(n);
a:= n mod 10;
b:=n div 10;
if a>4 then inc(b);
b:=b*10;
Writeln(b)
end.
Не нашли ответ?
Похожие вопросы