Сколько существует четырёхзначных чисел кратных 3?Помогите пожалуйста...

Question

Сколько существует четырёхзначных чисел кратных 3?
Помогите пожалуйста...

Comments

Тебе нужно конкретное число или программа определения?

---

программа определения

---

на Паскале?

---

да

Answer 1

Var i,x:integer;
begin
for i:=1000 to 9999 do
if i mod 3 = 0 then inc(x);
end.

Вроде бы всё. 

Comments

спасибо

Answer 2

Var k,i:integer;
Begin
k:=0;
For i := 1000 to 9999 do 
If i mod 3 = 0 then
k:=k+1;
Write(k);
end.

Comments

спасибо