Выполнить округление натурального числа N с точность до десятков (стандартные функции округления и функции работы со строками не использовать)

Question

Дарина

24 сентября, 11:17

+3

Ответы (1)

Знаете ответ на вопрос?

Матвеич · Answer 1

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.