С клавиатуры вводится десять целых чисел (до100), найти произведение тех из них которые делятся на три или которые оканчиваются тройкой

Question

Информатика

Донат

14 октября, 18:14

С клавиатуры вводится десять целых чисел (до100), найти произведение тех из них которые делятся на три или которые оканчиваются тройкой

+1

Ответы (1)

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

Игорюша · Answer 1

Var ar:array[1 ... 10] of integer;

i, k:integer;

begin;

k:=1;

for i:=1 to 10 do

begin;

readln (ar[i]) ;

if (ar[i] mod 3=0) or (ar[i] mod 10=3) then k:=k*ar[i];

end;

writeln ('Result:', k) ;

end.