Var a,b,c: real;
begin
readln (a);
readln (b);
readln (c);
if (a mod 5)=0 then
writeln (a);
if (b mod 5)=0 then
writeln (b);
if (c mod 5)=0 then
writeln (c);
end.
Var
a, b, i, k: integer;
begin
readln(a, b);
for i := a to b do
if i mod (7 * 2) = 0 then
begin
k := k + 1;
writeln(i);
end;
writeln('K = ', k);
end.
По формуле включений-исключений
35 = 24 + 18 + 12 - 5 - 10 - 8 + х
х = 4
Чтобы понять формулу, надо нарисовать 3 круга которые имеют общую область пересечения