Войти Регистрация Спроси ai-bota

В двумерном массиве хранится информация о зарплате 18 человек за каждый месяц гола (за январь - в первом столбце, за февраль во втором и т. д.).
Определить обшую зарплату, выплаченную в июне.
Через матрица и с ++, можно полностью код?

Показать ответ

Ответ:

Sem5000

08.04.2023 07:45

Program TaskA;
Var r1, r2: Integer;
Procedure S(r1, r2: Integer);
Var s: Real;
Begin
If r1 > r2 Then
s := Pi * (r1 * r1 - r2 * r2)
Else
s := Pi * (r2 * r2 - r1 * r1);
WriteLn('Площадь кольца: ', s:5:2);
End;
Begin
Write('r1 = ');
ReadLn(r1);
Write('r2 = ');
ReadLn(r2);
S(r1, r2);
ReadLn;
End.

Program TaskA;
Var r1, r2: Integer;
Function S(r1, r2: Integer): Real;
Begin
If r1 > r2 Then
result := Pi * (r1 * r1 - r2 * r2)
Else
result := Pi * (r2 * r2 - r1 * r1);
End;
Begin
Write('r1 = ');
ReadLn(r1);
Write('r2 = ');
ReadLn(r2);
WriteLn('Площадь кольца: ', S(r1, r2):5:2);
end.

0,0(0 оценок)

Ответ:

LFZ1

08.04.2023 07:45

Program TaskA;
Var r1, r2: Integer;
Procedure S(r1, r2: Integer);
Var s: Real;
Begin
If r1 > r2 Then
s := Pi * (r1 * r1 - r2 * r2)
Else
s := Pi * (r2 * r2 - r1 * r1);
WriteLn('Площадь кольца: ', s:5:2);
End;
Begin
Write('r1 = ');
ReadLn(r1);
Write('r2 = ');
ReadLn(r2);
S(r1, r2);
ReadLn;
End.

Program TaskA;
Var r1, r2: Integer;
Function S(r1, r2: Integer): Real;
Begin
If r1 > r2 Then
result := Pi * (r1 * r1 - r2 * r2)
Else
result := Pi * (r2 * r2 - r1 * r1);
End;
Begin
Write('r1 = ');
ReadLn(r1);
Write('r2 = ');
ReadLn(r2);
WriteLn('Площадь кольца: ', S(r1, r2):5:2);
end.

0,0(0 оценок)

Популярные вопросы: Информатика

AndreyMiix

20.12.2021 13:25

2 ЗАДАНИЯ. очень Сгенерировать и вывести на экран массив из 150 целых чисел в диапазоне от -90 до 90. Найти в данном массиве: 1- Количество двухзначных чисел. 2- Сумму...

QueenAlinacom

17.04.2021 15:35

Какое из условий написано не правильно1. x y-12. 1+5 x3. x y and x 04. x y-1...

Marta2910

25.01.2020 15:20

. В результате выполнения фрагмента программы:а:=20; b:=(a mod 10)*10; a:=(b*2)+a div 100; if a b then c:=a+b else c:=b-a;переменная с примет значение: *...

sonya408

20.11.2021 05:27

Постройте электронную таблицу «Оплата электроэнергии» для расчета ежемесячной платы за расход электроэнергии в течение года. Исходной информацией являются показания...

Fid11

21.11.2020 21:07

Запусти Паскаль и введи программу: var a,b,c:integer; begin a:=−13; b:=abs(a); writeln( abs(−13)= ,b); c:=sqr(b); writeln( sqr(b)= ,c); c:=sqr(b+b); writeln( sqr(b+b)=...

nikzarubenko

14.04.2020 21:48

В таблице «Климат», используя фильтрацию данных, найти: страны со средней температурой июля 20 0С; со средней температурой января 28 0С; страны, в которых среднегодовой...

ValeriaChernysheva

25.02.2021 20:12

9 задание там постройте графики двух разных функций и найти их пересечения...

enikolaenko81

08.09.2022 23:10

Даны числа: 1; 41; 499; 6570; 10033. Используя MS Excel, вычисли среднее арифметическое данных чисел....

fainakorolenko

08.04.2021 22:52

Что такое робототехника? Кто такой Карел Чапек? Сколько существует типов датчиков? Напишите три режима работы гироскопического датчика....

яАРтеМоНкА

06.10.2021 07:43

Сравните величины, указав для каждой пары величин соответствующий знак.1010102 и 11000021002 и 11212 и 1101 2=3 ...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку