скласти блок схему алгоритму обчислення вартості кожного виду квитків та всіх квитків разом, якщо вчителька купила a квитків по b грн, с квитків по d грн та k квитків по n грн
224
466
Ответы на вопрос:
Program z3; var y: array [1..15] of real; g: array [1..20] of real; i,d, a,b: integer; sum, sum_2: real; begin writeln('введите оплату труда за день'); read(d); a: = 0; b: = 0; for i : = 1 to 15 do begin y[i] : = random (30); if (y[i] < 10) then a: = a + 1; y[i] : = y[i] * d * 0.8; end; for i: =1 to 20 do g[i] : = random (30); if (g[i] < 10) then b: = b + 1; g[i] : = g[i] * d * 0.8; for i: =1 to 15 do begin writeln('сотрудник y_',i,' - ',y[i]); sum: = sum + y[i]; end; writeln; writeln('сумма отдела y - ', sum); writeln; for i: =1 to 20 do begin writeln('сотрудник g_',i,' - ',g[i]); sum_2: = sum_2 + g[i]; end; writeln; writeln('сумма отдела g - ', sum_2); writeln; writeln('в отделе y ', a, ' сотрудников работало меньше 10 дней'); writeln; writeln('в отделе g ', b, ' сотрудников работало меньше 10 дней'); end.
Популярно: Информатика
-
znj93294znj9329413.03.2022 00:24
-
serovik2421.02.2021 17:03
-
freddylolbrO19.12.2022 22:37
-
Filipskaya2005.05.2022 14:58
-
uchenik571302.05.2022 08:02
-
r0ma00019.06.2020 23:47
-
farcry713.03.2022 05:39
-
andreweeoneoff04.12.2022 11:39
-
fkdsf23429.12.2021 22:34
-
mboyko200501.08.2022 16:08