Если сумма налога исчисляется в рублях и копейках, то налоговая служба округляет ее до...

В 9:14 поступил вопрос в раздел Разное, который вызвал затруднения у обучающегося.

Вопрос вызвавший трудности

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

Ответ подготовленный экспертами Учись.Ru

Для того чтобы дать полноценный ответ, был привлечен специалист, который хорошо разбирается требуемой тематике "Разное". Ваш вопрос звучал следующим образом:

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

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

N1
program task1;
var a:real;
begin
readln(a);
a:=Round(a);
writeln(a);
end.

N2

program task2;
var a,i:integer;s:string;
begin
s:=БАЙТ;
for I:=1 to s.Length do
a:=a+ord(s[i]);
writeln(a);
end.

 

НЕСКОЛЬКО СЛОВ ОБ АВТОРЕ ЭТОГО ОТВЕТА:

Работы, которые я готовлю для студентов, преподаватели всегда оценивают на отлично. Я занимаюсь написанием студенческих работ уже более 4-х лет. За это время, мне еще ни разу не возвращали выполненную работу на доработку! Если вы желаете заказать у меня помощь оставьте заявку на этом сайте. Ознакомиться с отзывами моих клиентов можно на этой странице.

Исакова Малика Юрьевна - автор студенческих работ, заработанная сумма за  прошлый месяц 50 660 рублей. Её работа началась с того, что она просто откликнулась на эту вакансию