Pascal.ABC Известна зарплата каждого из N работников фирмы за каждый месяц первого...

Question

Pascal.ABC
Известна зарплата каждого из N работников фирмы за каждый месяц первого квартала (квартал – это три месяца). Определить общую сумму, выплаченную за квартал всем работникам фирмы.

Comments

тебе нужна программа на pascale?

---

да, нужна сама прописанная программа

Answer 1

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.

Comments

"за каждый месяц первого квартала". Зарплата не одна, а их в общем - три.

---

тогда сейчас

---

поправил

---

еще чутка поправил)

---

про J я уже сама сообразила сейчас, когда стала проверять)

---

огромное спасибо)