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

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

Задать свой вопрос
Женя Мусовский
Для тебя необходимо конкретное число либо программка определения?
Арина Чеботорева
программка определения
Вадим Плохотнюк
на Паскале?
Леонид
да
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.
Юля
спасибо
Var i,x:integer;
begin
for i:=1000 to 9999 do
if i mod 3 = 0 then inc(x);
end.

Вроде бы всё. 
Амелия Молыгина
спасибо
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт