Составить программку, которая обретает количество трехзначных чисел 6 (Pascal ABC) Help

Составить программку, которая обретает количество трехзначных чисел 6 (Pascal ABC)

Help

Задать свой вопрос
Darja Pumpur
Уточните задание. Где ищется количество трехзначных цифр? В последовательности, массиве ...?
Оксана Андрючикова
И что означает в условии цифра 6?
Аделина Михеенкова
кратных 6 нужно отыскать :)
1 ответ
100 .. 999 - Спектр трехзначных целых чисел. В этом спектре поищем числа кратные 6. (Вариант не самый лучший)

var i,k: integer;

begin

  k:=0;

  for i:=100 to 999 do begin

    if i mod 6 = 0 then 

      k:=k+1;

  end;

  writeln(k);

end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт