• Дана непустая последовательность чисел оканчивающаяся нулем. Найти: а) сумму всех чисел последовательности, б) кол-во всех чисел последовательности.решить через Pascal ABC через repeat,for или while

Ответы 1

  • vara, s, n: integer;beginn:=0; s:=0;repeatreadln(a);inc(n);inc(s, a);until a = 0;writeln('Сумма: ', s);writeln('Количество: ', n);end.
    • Автор:

      lion4fxr
    • 2 года назад
    • 9
  • Добавить свой ответ

Войти через Google

или

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

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

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