• Составить программу, которая вычисляет среднеарифметическое чисел, кратных 3 в диапазоне от 1 до 200.
    Составить программу, которая вычисляет факториал числа 7!

Ответы 1

  • Первая программа:var summ,k,i:Integer; sa:Real;begin summ:=0; k:=0; for i:=1 to 200 do begin if (i mod 3 = 0) then begin summ:=summ+i; k:=k+1; end; end; sa:=summ/k; WriteLn(sa);end.Вторая:var i,f:Integer;begin f:=1; for i:=1 to 7 do f:=f*i; WriteLn(f)end.
    • Автор:

      caballero
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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