Вводятся два числа А и В (В больше А). Вывести на экран числа, которые делятся на 3, но не делятся на 5 и их количество. (Паскаль)
Вводятся два числа А и В (В>А). Вывести на экран числа, которые делятся на 3, но не делятся на 5 и их количество. (Паскаль)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы