Pascal.ABC Известна зарплата каждого из N работников фирмы за каждый месяц первого квартала (квартал – это три месяца). Определить общую сумму, выплаченную за квартал всем работникам фирмы.
Var n, s, i, j, k: integer; begin writeln('Введите N'); readln(n); s:=0; for j:=1 to 3 do for i:=1 to n do begin writeln('Введите зарплату ', i, ' сотрудника за ', j, ' месяц квартала'); readln(k); inc(s, k); end; writeln('Сумма: ', s); end.
2 votes Thanks 2
Нюта2202
"за каждый месяц первого квартала". Зарплата не одна, а их в общем - три.
Answers & Comments
Verified answer
Varn, s, i, j, k: integer;
begin
writeln('Введите N');
readln(n);
s:=0;
for j:=1 to 3 do
for i:=1 to n do
begin
writeln('Введите зарплату ', i, ' сотрудника за ', j, ' месяц квартала');
readln(k);
inc(s, k);
end;
writeln('Сумма: ', s);
end.