Регистрация
Gladiator974
19.05.2023 07:06
Информатика
Есть ответ 👍

Офісні веб-програми для створення спільних документів​
ів

262
453
Посмотреть ответы 1

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

D202
D202
4,5(66 оценок)
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.

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