Регистрация
kseriii
17.04.2023 03:54
Информатика
Есть ответ 👍

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

276
395
Посмотреть ответы 3

Ответы на вопрос:

arhived1
arhived1
4,4(14 оценок)
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.
Mariska4
Mariska4
4,4(22 оценок)
Всё работает, пробуй.
AsassinGirl
AsassinGirl
4,4(93 оценок)

ой

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