var
a, i, chet: integer;
begin
chet := 0;
Writeln('Введите 5 чисел: ');
for i := 1 to 5 do
Read(a);
if (a mod 3 = 0) and (Odd(a)) then
Inc(Chet);
end;
Write('Колличество чисел: ', Chet);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
a, i, chet: integer;
begin
chet := 0;
Writeln('Введите 5 чисел: ');
for i := 1 to 5 do
begin
Read(a);
if (a mod 3 = 0) and (Odd(a)) then
Inc(Chet);
end;
Write('Колличество чисел: ', Chet);
end.