Регистрация
aniavetisa
26.05.2022 20:58
Информатика
Есть ответ 👍

Задача в Pascal.В цикле for посчитать произведение нечетных элементов массива.
Число для перемножения на элементы массива - 21.
Диапазон от 1 до n.

261
416
Посмотреть ответы 1

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

Hyun79
Hyun79
4,5(31 оценок)
Var a,i,s: integer; begin write('a='); readln(a); s: =0; i: =1; while a< > 0 do   begin   if i mod 2 =0 then s: =s+a;   i: =i+1;   write('a='); readln(a); end; writeln('s=',s); end.

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