Monn
7 год назад
Выполнить округление натурального числа N с точность до десятков (стандартные функции округления и функции работы со строками не использовать)
ОТВЕТЫ
Мелентьевич
Aug 12, 2019
Var
n: integer;
a,b: integer;
begin
Readln(n);
a:= n mod 10;
b:=n div 10;
if agt;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 agt;4 then inc(b);
b:=b*10;
Writeln(b)
end.
195
