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

Ответы 6

  • тогда сейчас
  • поправил
    • Автор:

      piggy
    • 6 лет назад
    • 0
  • еще чутка поправил)
  • про J я уже сама сообразила сейчас, когда стала проверять)
  • огромное спасибо)
    • Автор:

      mittenswu
    • 6 лет назад
    • 0
  • varn, s, i, j, k: integer;beginwriteln('Введите N');readln(n);s:=0;for j:=1 to 3 dofor i:=1 to n do  begin  writeln('Введите зарплату ', i, ' сотрудника за ', j, ' месяц квартала');  readln(k);  inc(s, k);  end;writeln('Сумма: ', s);end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years