Дано масив а[1..n]. скласти програму пошуку кількості елементів масиву які кратні 3 і некратні 5.

227

254

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

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

rus170

Информатика

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

Const n=10; var a: array[1..n]of integer; i,k: integer; begink: =0; for i: =1 to n do begin read(a[i]); if ((a[i] mod 3=0) and (a[i] mod 5 > 0)) then k: =k+1; end; write('таких чисел: ',k); end.

torimuse

Информатика

4,7(49 оценок)

Const n = 5; var a: array[1..n] of integer; i, s: integer; begin s: =0; for i: =1 to n do begin readln(a[i]); if (a[i] mod 3 = 0) and (a[i] mod 5 < > 0) then s: =s+1; end; writeln(s); end.