Я никогда не подружусь с этой темой ...

1. С клавиатуры вводится 7 целых чисел. Найти сумму всех нечетных среди них.

2. С клавиатуры вводится 7 целых чисел. Найти произведение чисел кратных 7.

(Информатика. Тема: Pascal ABC. 8 класс)

Question

Информатика

Дормидбнт

9 апреля, 05:47

Я никогда не подружусь с этой темой ...

1. С клавиатуры вводится 7 целых чисел. Найти сумму всех нечетных среди них.

2. С клавиатуры вводится 7 целых чисел. Найти произведение чисел кратных 7.

(Информатика. Тема: Pascal ABC. 8 класс)

+4

Ответы (1)

Знаете ответ на вопрос?

Феогния · Answer 1

1)

Program z2;

var a:array[1 ... 7] of integer;

i, s: integer;

Begin

s:=0;

for i:=1 to 7 do begin read (a[i]) ;

end;

for i:=1 to 7 do begin if a[i] mod 3 = 0 then begin s:=s+a[i]

end;

end;

writeln;

write ('Сумма всех нечётных элементов: ', s) ;

end.