Составьте программу,выводящую ** экран числа от 1 до 30, которые делятся без остатка ** 2...

Question

Составьте программу,выводящую на экран числа от 1 до 30, которые делятся без остатка на 2 и 3,но не делятся на 4

Answer 1

Var i:integer;
a:array[1..30] of integer;
begin
for i:=1 to 30 do begin
readln(a[i]);
if(a[i]mod 2 =0)and(a[i]mod 3 =0)and (a[i]mod 4 <>0)then writeln(a[i]);
end;end.

Comments

ты уж извини но можеш попроще немножко ато както палевно

---

что значит [i]

---

параметр цикла, индекс массива попроще можно написать 30 одинаковых строк типа if(a[1]mod 2 =0)and(a[1]mod 3 =0)and (a[1]mod 4 <>0)then writeln(a[1]);
if(a[2]mod 2 =0)and(a[2]mod 3 =0)and (a[2]mod 4 <>0)then writeln(a[2]); и так далее

---

но мы массив не проходили(8класс)

---

ой стоп, не так прочитала условие, сейчас исправлю

---

такой вопрос, циклы проходили?

---

да

---

вот тогда
var i:integer;
begin
for i:=1 to 30 do begin
if(i mod 2 =0)and(i mod 3 =0)and (i mod 4 <>0)then writeln(i);
end;
end.

---

спасибо

---

пожалуйста