1. Вывести ** экран все целые числа от 100 до 200, кратные трем.

Question

1. Вывести на экран все целые числа от 100 до 200, кратные трем.

Answer 1

I:integer;
begin
For i:=100 to 200 do
If i mod 3=0 then
Write(i,' ');
end;

Comments

вначале допиши var

---

т.е. var i:integer;