Question

Користувач вводить число n - число коробок. Програма повинна вивести всі числа від 1 до n, що не кратні 3.

Answer 1

n = int(intput())

for i in range(1, n + 1):

if i % 3! = 0:

print(i)

это на питоне

на паскале

var n, i:integer;

begin

read(n)

; for i := 0 to n do

begin

if i mod 3 <> 0 then

begin

writeln(i)

end

; i := i + 1

end;

end.