Подсчитать произведение целых чисел, введенных с клавиатуры. Произведение…

Question

90

Подсчитать произведение целых чисел, введенных с клавиатуры. Произведение подсчитывается до тех пор, пока вводятся числа от -10 до +10Через While решать!

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

keks2003 · Accepted Answer

40

keks2003

18 апреля 2023

var pr, x: integer; begin pr: =1; write ('Введите число '); readln (x); while (x <= 10) and (x >=-10) do begin Pr: =pr*x; write ('Введите число '); readln (x); end; writeln ('Произведение чисел=', pr); end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: