Question

инфа, 9 класс

найти сумму всех натуральных чисел до n, которые кратны 3 и одновременно являются нечётными. эти числа вывести на экран в одну строку.

Answer 1

var
n, i : longint;
begin
readln(n);
for i:= 2 to n do
if (i mod 2 <> 0) and (i mod 3 = 0) then
begin
write(i);
write(' ');
end;
end;
end.