• Дана последовательность чисел оканчивающихся на 0 найти сумму и произведение этих чисел(Нужно написать программу в Паскале

Ответы 1

  • var a,s,p:integer;begins:=0;p:=1;write('Введите число: ');readln(a);while a<>0 dobegins:=s+a;p:=p*a;write('Введите число: ');readln(a)end;writeln('Сумма чисел в последовательности: ',s);writeln('Произведение чисел в последовательности: ',p)end.
    • Автор:

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

Войти через Google

или

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

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

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