даны n натуральных чисел a1...a2...an.Определить и вывести количество членов последовательности кратных 3 и не кратных 5
Answers & Comments
Эклео
Var n,k,i: integer; a: array[1..1000] of integer; begin write ('Введите N: '); read (n); for i:=1 to n do begin write ('Введите ',i,'-й член последовательности: '); readln (a[i]); if (a[i] mod 3 = 0) and (a[i] mod 5 <> 0) then k:=k+1 end; writeln ('K = ',k) end. --------------------------------------------------- Введите N: 5 Введите 1-й член последовательности: 12 Введите 2-й член последовательности: 9 Введите 3-й член последовательности: 7 Введите 4-й член последовательности: 15 Введите 5-й член последовательности: 30 K = 2
Answers & Comments
n,k,i: integer;
a: array[1..1000] of integer;
begin
write ('Введите N: ');
read (n);
for i:=1 to n do begin
write ('Введите ',i,'-й член последовательности: ');
readln (a[i]);
if (a[i] mod 3 = 0) and (a[i] mod 5 <> 0)
then k:=k+1
end;
writeln ('K = ',k)
end.
---------------------------------------------------
Введите N: 5
Введите 1-й член последовательности: 12
Введите 2-й член последовательности: 9
Введите 3-й член последовательности: 7
Введите 4-й член последовательности: 15
Введите 5-й член последовательности: 30
K = 2