М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
pvltozq6wl
pvltozq6wl
12.10.2022 09:42 •  Информатика

Напишите программу, которая запрашивает у пользователя его ежемесячную зарплату, рассчитывает размер ежемесячного подоходного налога (13%) и выводит размер налоговых выплат за год: Размер годовых налоговых выплат составил: [значение]

Python

👇
Ответ:

Решение представлено во вложениях.

Язык: Python (Jupyter Notebook)


Напишите программу, которая запрашивает у пользователя его ежемесячную зарплату, рассчитывает размер
4,8(74 оценок)
Открыть все ответы
Ответ:
svetlanasevasty
svetlanasevasty
12.10.2022

Объяснение:

#include <iostream>

#include <ctime>

using namespace std;

int main()

{

srand(time(NULL));

int m, n;

cin >> m >> n;

if (m <= 0 || n <= 0) return 0;

int** arr = new int* [m];

for (int i = 0; i < m; i++)

{

 arr[i] = new int[n];

}

cout << endl;

for (int i = 0; i < m; i++)

{

 for (int j = 0; j < n; j++)

 {

  arr[i][j] = rand() % 11 - 5;

  cout.width(3);

  cout << arr[i][j];

 }

 cout << endl;

}

cout << endl;

int belowZero = 0;

for (int i = 0; i < m; i++)

{

 int sum = 0;

 for (int j = 0; j < n; j++)

 {

  sum += arr[i][j];

 }

 if (sum < 0) belowZero++;

}

cout << "  Answer: " << belowZero << endl;

for (int i = 0; i < m; i++)

{

 delete[] arr[i];

}

delete[] arr;

}

4,7(93 оценок)
Ответ:
медвва
медвва
12.10.2022
1)uses crt;
var i,j,n,ans:integer;
begin
read(n);
for i:=1 to 9 do
for j:=0 to 9 do
if i+j=n then
ans:=ans+1;
writeln(ans);
end.
2)
uses crt;
var i,n:integer;
x:array[1..100] of integer;
begin
writeln('Введите количество x и значения: ');
read(n);
for i:=1 to n do
read(x[i]);
writeln('x  y');
for i:=1 to n do
writeln(x[i],'  ',x[i]*x[i]+3);
end.
3.
uses crt;
var i:integer;
begin
for i:=1 to 5 do
write(i*i*i,' ');
end.
4.
uses crt;
var i,n,sum:real;
begin
writeln('Введите N:');
read(n);
i:=3;
while i<=n do
begin
sum:=sum+1/i;
i:=i+3;
end;
writeln(sum);
end.
5.
uses crt;
var j,i,n,sum:integer;
a:array[1..100] of integer;
begin
writeln('Введите количество чисел и сами числа:');
read(n);
for i:=1 to n do
begin
sum:=0;
read(a[i]);
for j:=1 to length(inttostr(a[i])) do
sum:=sum+strtoint(inttostr(a[i])[j]);
if sum mod 3 = 0 then
write(a[i],' ');
end;
end.
6.a)uses crt;
var n:string;
begin
read(n);
writeln(max(strtoint(n[1]),strtoint(n[2])));
end.
б)
uses crt;
var n:string;
begin
read(n);
writeln(max(max(strtoint(n[1]),strtoint(n[2])),strtoint(n[3])));
end.
4,7(20 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ