Pascal. ABC

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

Question

Информатика

Митрей

15 июля, 23:07

Pascal. ABC

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

+5

Ответы (1)

Знаете ответ?

Тюша · 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.