Question

Вводятся два числа А и В (В>А). Вывести на экран числа, которые делятся на 3, но не делятся на 5 и их количество. (Паскаль)

Answer 1

Var
a, b, i, count: integer;
begin
readln(a);
readln(b);
count:=0;
for i:=a to b do
if (i mod 3 = 0) and (i mod 5 <> 0) then
begin
inc(count);
writeln(i);
end;
writeln('Количество = ', count);
end.