Выполнить округление натурального числа N с точность до десятков (стандартные функции округления и функции работы со строками не использовать)
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
9 лет назад