Информатика, опубликовано 2018-08-22 18:34:33 by Гость
Напишите программу в среде Pascal ABC,которая в последовательности чисел от 5 до 30 находит произведение чётных.
Ответ оставил Гость
Program fofgogjoj;
Var
a: array [1..100] of integer;
i, n, p: integer;
Begin
p:=1;
n:=30;
for i:=5 to n do
begin
a[i]:=i;
if i mod 2=0 then
p:=p*a[i];
end;
Writeln (Произведение элементов массива с четными числами равно: ,p);
End.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на