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

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

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

Kirillastrovskiy

24.06.2020 06:17

Решите информатику Что будет выведено на экран после выполнения оператора write( a )? 1)значение переменной a 2) буква a 3) буква a в кавычках...

hopas1

26.05.2022 12:38

Напиши программу(Phyton) для задачи...

0000101038473626261

11.08.2022 03:53

перевести число 10116 в двоичную систему...

gubankowauly19

23.07.2020 08:21

ИНФОРМАТИКА! А) Тип данных «Числовой» используется в MS Access в таблице полей, для хранения … 1) текущего времени; 2) действительных чисел. 3) денежных сумм; 4) уникальных натуральных...

slaadkoo

04.06.2021 05:56

Бжб комектесинш 5 б берем информатика...

БадяМэн

04.06.2021 05:56

Шолғын бағдарлама дегеніміз не информатика...

VitalЯ

15.03.2021 03:51

Автобусные остановки расположены через каждые K метров от начала улицы, то есть на расстоянии 0, K, 2K, 3K и т.д. метров от начала. Света от начала улицы N метров, после чего устала...

КИРИЛЛ9067

15.05.2022 16:31

Какая равнина раскинулась от западных границ россии до уральских гор.нету среднируской=)...

митцухиро

15.05.2022 16:31

Наболее плоскую поверхность имеет: 1)восточно европейское равнина 2)среднесибирское плоскогорлье 3)заподна сибирская равнина 4)становае нагорье...

uosup81821

15.05.2022 16:31

Какая сумма должна быть выплачена, если 6 лет назад была выдана ссуда 50000 руб. под 15% годовых с ежемесячным начислением процентов....

Ответ:

zubiks108642

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 оценок)

Ответ:

verazotova04

20.07.2020 01:58

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

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

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

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