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

Question

Владлена

18 февраля, 15:16

+2

Ответы (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.