Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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.