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

Question

Евдокимыч

13 ноября, 11:55

+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.