Войти Регистрация Спроси ai-bota

Даны 10 любых чисел , найти произведение только тех , которые лежат в диапазоне от 20 до 40

Ответ:

danila110420051

20.07.2020 01:58

Program pbc;
var a,q,n:
integer;begin
writeln('введите десять чисел');
readln(a);
q:=1;
n:=1;
while (n<>10) do
begin
if (a>=20) and (a<=40) then
q:=a*q;
readln(a);
n:=n+1;
end;
writeln('ответ ',q);
end.

0,0(0 оценок)

Ответ:

Kristina8478

20.07.2020 01:58

Всё работает, пробуй.

0,0(0 оценок)

Популярные вопросы: Информатика

edomokurov

13.02.2022 02:37

Подчеркни названия электронных устройств с которых можно обрабатывать информацию: клавиатура, двд, принтер, мышь, компьютер, радио, телефон...

megadog

20.04.2020 03:14

7класс,информатика. формы представления информации примеры:...

Нрататоаооаоп

20.09.2020 01:58

Придумайте вычислительную . не абы-как, а чтобы было нормально ....

alsusetyarova05

27.11.2021 13:07

8короче есть 4 виды графики 1веуторная,2ррастровая,3трёхмерная,4фрактальная нужно их роставитб по порядку...

демлан

05.07.2022 02:13

Разделение гуннского государства на южную и северную произошло в: 1)45г.до н.э 2)35г.до н.э 3)55г.до н.э...

Dertylt

06.05.2022 04:34

7 сынып. «Алгебралық бөлшектер» бөлімі бойынша жиынтық бағалау 1). у – тің қандай мәндерінде бөлшектің мағынасы болмайды?: 3у+43у(2у-7); [2] 2) Бөлшекті қысқартыңыз:...

bcfujd19

10.04.2022 19:43

СОР How to Stay Healthy Life today is very stressful. If you go to school, you have the stress of exams and getting good grades. If you go to work, you have the...

kamilahamidova

21.10.2020 02:31

Составьте предложений стены...

lenabejenar

21.10.2020 02:31

Составь буквенное выражение и найди значение выражения, если...

seman6501

11.04.2023 17:59

Заполнить таблицузаполните плюс на русском языке 7 класс 4 4 ...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку