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

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

Задать свой вопрос
Степа Стыжин
для тебя нужна программка на pascale?
Ульяна
да, нужна сама прописанная программа
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.
Лешневская Эвелина
"за каждый месяц первого квартала". Заработная плата не одна, а их в общем - три.
Артемий
тогда сейчас
Илья
поправил
Ананиан Никита
еще чутка поправил)
Александра Тоболкина
про J я теснее сама сообразила на данный момент, когда стала инспектировать)
Димка
громадное спасибо)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт