БТ
Борис Тарханов
Помогите срочно составить программу (9 класс)
Помогите срочно составить программу (9 класс)
B [1..20]
B [i] ∈ [1;30]
Вывести чётные и кратные 3
Помогите срочно составить программу (9 класс)
B [1..20]
B [i] ∈ [1;30]
Вывести чётные и кратные 3
b.each |v| do if (v % 6 == 0) print "#{ v }\n"; end;
Типа
for i=1 to 20
if i mod 6=0 then что-то
next i
for i:=1 to 20 do begin
b[i]:=random(30)+1; write(b[i]:5) end;
for i:=1 to 20 do
if (b[i] mod 2=0) and (b[i] mod 3 =0) then write(b[i]:5);