• Написать программу которая подсчитывает произведение целых чисел введеных с клавиатуры. Произведение подсчитывается до тех пор пока вводятся числа в интервале -10 до +10

Ответы 1

  • var a,p:integer;beginp:=1;repeatreadln(a);if (a>=-10) and (a<=10) then p:=p*a; until (a>10) or (a<-10); write(p) end.
  • Добавить свой ответ

Войти через Google

или

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

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

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