Question

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

Answer 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.

 

Answer 2

1. Чтобы округлить сумму налога до ближайшего рубля, можно воспользоваться функцией округления. В большинстве языков программирования есть подобные функции. Вот пример на языке Python:

pythonCopy code
tax = 123.45  # Введите сумму налога в рублях и копейках
rounded_tax = round(tax)  # Округляем до ближайшего рубля
print("Сумма налога:", rounded_tax)

В этом примере переменная tax содержит сумму налога в рублях и копейках. Функция round() округляет это значение до ближайшего целого числа. Результат выводится на экран.

2. Вот пример программы на языке Pascal, которая вычисляет сумму кодов букв в слове "БАЙТ":

pascalCopy code
program SumOfCharCodes;
var
  word: string;
  sum: integer;
  i: integer;
begin
  word := 'БАЙТ';
  sum := 0;
  for i := 1 to Length(word) do
    sum := sum + Ord(word[i]);
  writeln('Сумма кодов букв в слове "', word, '": ', sum);
end.

В этом примере программа считает сумму кодов символов в переменной word. Она использует функцию Ord(), чтобы получить код каждого символа, и складывает полученные значения в переменной sum. Результат выводится на экран.

3. Вот пример программы на языке Pascal, которая вычисляет значение у по формуле у = х^3 + 2.5х^2 - х + 1:

pascalCopy code
program CalculateY;
var
  x, y: real;
begin
  x := 2.0;  // Введите значение х
  y := x * x * x + 2.5 * x * x - x + 1;
  writeln('Значение у при х = ', x, ': ', y);
end.

В этом примере значение x задается в коде программы. Затем формула y = x^3 + 2.5x^2 - x + 1 вычисляется в одном операторе присваивания. Результат выводится на экран. Вы можете изменить значение x для вычисления значения y при различных значениях x.