Если сумма налога исчисляется в рублях и копейках, то налоговая служба округляет ее до ближайшего рубля ( до 50 копеек- с недостатком , свыше 50 копеек (включая 50)- с избытком). Используйте компьютер, чтобы ввести точную сумму налога и вывести, сколько следует уплатить. 2) Запишите на языке Паскаль программу, которая вычисляет сумму кодов букв в слове БАЙТ. 3) Для заданного х вычислите у по формуле у= х3+2,5х2-х+1. При этом: а) операцию возведения в степень использовать запрещено; б) В одном операторе присваивания можно использовать не более одной арифметической операции (сложение, умножение, вычитание); в) В программе может быть использовано не более пяти операторов присваивания.
1) Пример программы на языке Python, который округляет сумму налога до ближайшего рубля:
tax = float(input("Введите сумму налога: ")) rounded_tax = round(tax) print(f"Сумма налога к уплате: {rounded_tax} рублей")
2) Программа на языке Паскаль, которая вычисляет сумму кодов букв в слове БАЙТ:
program sum_of_codes; var word: string; sum, i: integer; begin word := 'БАЙТ'; sum := 0; for i := 1 to length(word) do sum := sum + ord(word[i]); writeln('Сумма кодов букв в слове БАЙТ: ', sum); end.
3) Программа на языке Паскаль, которая вычисляет значение у для заданного значения х:
program calculate_y; var x, y: real; begin write('Введите значение x: '); readln(x); y := x * x * x + 2.5 * x * x - x + 1; writeln('Значение у: ', y); end.
1) Пример программы на языке Python, который округляет сумму налога до ближайшего рубля:
tax = float(input("Введите сумму налога: "))rounded_tax = round(tax)
print(f"Сумма налога к уплате: {rounded_tax} рублей")
2) Программа на языке Паскаль, которая вычисляет сумму кодов букв в слове БАЙТ:
program sum_of_codes;var
word: string;
sum, i: integer;
begin
word := 'БАЙТ';
sum := 0;
for i := 1 to length(word) do
sum := sum + ord(word[i]);
writeln('Сумма кодов букв в слове БАЙТ: ', sum);
end.
3) Программа на языке Паскаль, которая вычисляет значение у для заданного значения х:
program calculate_y;var
x, y: real;
begin
write('Введите значение x: ');
readln(x);
y := x * x * x + 2.5 * x * x - x + 1;
writeln('Значение у: ', y);
end.