Question

Напечатать на экране компьютера все числа в диапазоне от 1 до 100, делящиеся на 13

Answer 1

Var i:integer;
begin
for i:=1 to 100 do
begin
if i mod 13 = 0 then writeln (i);
end;
end.

Answer 2

Код на языке Python для решения этой задачи:

scssCopy code
for i in range(1, 101):
    if i % 13 == 0:
        print(i)

Результат выполнения кода на экране компьютера будут выведены все числа, которые делятся на 13 в диапазоне от 1 до 100:

Copy code
13
26
39
52
65
78
91