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

1

Ответы и объяснения

2013-12-09T12:42:47+00:00
Var i:integer;
begin
 for i:=1 to 1000 do
 if i mod 7=0 then writeln(i);
 readln;
end. 
блин, 2 случайно(
2 это вы про что?
2 ответа одинаковых сделал)) уже 2-ой убрался))
понятно, большое спасибо!!!! а вы теперь можете объяснить, что такое "i" ?