Question

Если
сумма налога исчисляется в рублях и копейках, то налоговая служба округляет её
до ближайшего рубля (до 50 копеек - с недостатком, свыше 50 копеек (включая 50) - с избытком).

Используйте
компьютер, чтобы ввести точную сумму
налога и вывести, сколько следует уплатить.
Написать программу

Answer 1

var S,R,P:real;
begin
readln(S);
R:=frac(S);  //функция frac возвращает дробную часть
if R>0.5 then
 P:=int(S)+1 //функция int возвращает целую  часть
else P:=int(s);
writeln(P);
end.

Answer 2

var a,b:real;
begin
readln(a);
if frac(a)>0.5 then
 b:=int(a)+1
else b:=int(a);
writeln(b);
end.