Найти количество элементов массива, значения которых кратны 3 и 5

222

458

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

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

ruslanabbyasov2004

Информатика

4,5(32 оценок)

Var a: array[1..10] of integer; i,k: integer; begin for i: =1 to 10 do begin write(i,'-й элемент: '); readln(a[i]); end; k: =0 for i: =1 to 10 do if a[i] mod 3 = 0 and a[i] mod 5 = 0 then k: =k+1; {если кратно и 3, и 5 одновременно, то and. если или 3, или 5, то or} writeln(k,' элементов'); end.