Регистрация
JHOOOOOOPE
16.12.2021 03:43
Информатика
Есть ответ 👍

Дан массив из 20 элементов целого типа , найти произведение нечетных кратных 3 элементов массива . язык паскаль)

166
433
Посмотреть ответы 2

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

lllkjhgf
lllkjhgf
4,5(45 оценок)

var

a: array[1..20] of integer;

i,x: integer;

begin

x : = 1;

write('введите 20 чисел для заполнения массива: ');

for i : = 1 to 20 do begin

readln(a[i]);

end;

for i : = 1 to 20 do begin

if(a[i] mod 2 = 1) and (a[i] mod 3 = 0) then

x : = x * a[i];

end;

writeln('произведение чисел нечетных и кратных 3 = ', x);

end.

kairat0101
kairat0101
4,6(77 оценок)

на каком языке программирования надо? pascal?

если да,то

var summ,i: integer;

begin

for i: =1 to 50 do

begin

  summ+=i;

end;

writeln(summ);

end.

либо

var summ,i: integer;

begin

i: =1;

while i< =50 do

begin

  summ+=i;

  i+=1;

end;

writeln(summ);

end.

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