Если
сумма налога исчисляется в рублях и копейках, то налоговая служба округляет её
до ближайшего рубля (до 50 копеек - с недостатком, свыше 50 копеек (включая 50) - с избытком).
Используйте
компьютер, чтобы ввести точную сумму
налога и вывести, сколько следует уплатить.
Написать программу
PatifonKakao:
Какой язык? Pascal?
Ответы
Ответ дал:
48
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.
begin
readln(S);
R:=frac(S); //функция frac возвращает дробную часть
if R>0.5 then
P:=int(S)+1 //функция int возвращает целую часть
else P:=int(s);
writeln(P);
end.
Ответ дал:
32
var a,b:real;
begin
readln(a);
if frac(a)>0.5 then
b:=int(a)+1
else b:=int(a);
writeln(b);
end.
begin
readln(a);
if frac(a)>0.5 then
b:=int(a)+1
else b:=int(a);
writeln(b);
end.
Вас заинтересует
11 месяцев назад
11 месяцев назад
6 лет назад
7 лет назад