Написать программу( в Free Pascal) выевляющую все числа, которые делятся ** 7 без...

Question

Написать программу( в Free Pascal) выевляющую все числа, которые делятся на 7 без остатка. от 1 до 1000! ПОМОГИТЕ ПОЖАЛУЙСТА!!!! МНЕ ЭТО НА ЗАВТРА НАДО

Answer 1

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

Comments

блин, 2 случайно(

---

2 это вы про что?

---

2 ответа одинаковых сделал)) уже 2-ой убрался))

---

понятно, большое спасибо!!!! а вы теперь можете объяснить, что такое "i" ?