Если сумма налога исчисляется в рублях и копейках, то налоговая служба округляет ее до ближайшего рубля (до 50 копеек - с недостатком, свыше 50 копеек (включая 50) - с избытком). Используйте компьютер, чтобы ввести точную сумму налога и вывести, сколько следует уплатить. 2) Запишите на языке Паскаль программу, которая вычисляет сумму кодов букв в слове БАЙТ. 3) Для заданного х вычислите у по формуле у = х3+2,5 х2-х+1. При этом: а) операцию возведения в степень использовать запрещено; б) В одном операторе присваивания можно использовать не более одной арифметической операции (сложение, умножение, вычитание); в) В программе может быть использовано не более пяти операторов присваивания.

Question

Стефания Яковлева

Информатика

14 ноября, 19:39

Если сумма налога исчисляется в рублях и копейках, то налоговая служба округляет ее до ближайшего рубля (до 50 копеек - с недостатком, свыше 50 копеек (включая 50) - с избытком). Используйте компьютер, чтобы ввести точную сумму налога и вывести, сколько следует уплатить. 2) Запишите на языке Паскаль программу, которая вычисляет сумму кодов букв в слове БАЙТ. 3) Для заданного х вычислите у по формуле у = х3+2,5 х2-х+1. При этом: а) операцию возведения в степень использовать запрещено; б) В одном операторе присваивания можно использовать не более одной арифметической операции (сложение, умножение, вычитание); в) В программе может быть использовано не более пяти операторов присваивания.

+2

Ответы (1)

Знаешь ответ на этот вопрос?

Пупся · Answer 1

Если исходить из условия, то чтобы ввести точную сумму налога и вывести, сколько следует уплатить, необходимо написать следующую программу:

Var a, b:real;

begin

readln (a);

if frac (a) >0.5 then

b:=int (a) + 1

else b:=int (a);

writeln (b);

end.

Либо же, второй вариант:

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.