Сколько существует четырехзначных чисел кратных 3

    Поделиться

    Поделиться

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

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

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.

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

Другие вопросы из категории

И ОБЪЯСНИТЕ КАК ЭТО СДЕЛАТЬ САМОМУ))
ТЕМУ ПОНЯТЬ НЕ СМОГ.

два лежака Туристы переставили лежаки так, как показано ка рисунке.
Какая команда пропущена (заменена знаком вопроса) в алгоритме
расстановки лежаков к первоначальному виду: по два под каждым зонтовhttp://ru.static.z-dn.net/files/d5c/d1c550b00fa05c25636901c979ab1b43.jpg

Пожалуйста, отвечайте только если уверены в правильности ответа!

какие признаки объекта считаются существенными приведите примеры

Читайте также

натуральные числа, количество введенных чисел не известно, последовательность чисел заканчивается 0.

Количество чисел не превышает 100. Введенные числа не превышают 30000.

Программа должна вывести одно число: сумму двухзначных чисел, кратных 5.

Люди! Плиииз, помогите! Т,Т

числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30000. Про-грамма должна вывести одно число: количество трехзначных чисел, кратных 7

последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 5. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число – сумму чисел, кратных 5.

вход натуральные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0- признак окончания ввода, не входит в последовательность), Количество чисел не превышает 1000. Введенные числа не превышают 30000. Программа должна вывести одно число: сумму всех чисел, кратных 7 и оканчивающихся на 0. Программу надо написать в Pascal

Читайте также  Северный мост как проверить исправность

последовательности, а затем сами числа. В последовательности всегда имеется число кратное 6. Кол-во чисел не превышает 100. Введённые числа не привышают 300. Программа должна ввести одно число – сумму чисел кратных 6

Вопрос по информатике:

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

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

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

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.

Знаете ответ? Поделитесь им!

Как написать хороший ответ?

Чтобы добавить хороший ответ необходимо:

  • Отвечать достоверно на те вопросы, на которые знаете правильный ответ;
  • Писать подробно, чтобы ответ был исчерпывающий и не побуждал на дополнительные вопросы к нему;
  • Писать без грамматических, орфографических и пунктуационных ошибок.

Этого делать не стоит:

  • Копировать ответы со сторонних ресурсов. Хорошо ценятся уникальные и личные объяснения;
  • Отвечать не по сути: «Подумай сам(а)», «Легкотня», «Не знаю» и так далее;
  • Использовать мат – это неуважительно по отношению к пользователям;
  • Писать в ВЕРХНЕМ РЕГИСТРЕ.
Есть сомнения?

Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.

Трудности с домашними заданиями? Не стесняйтесь попросить о помощи – смело задавайте вопросы!

Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.

Ссылка на основную публикацию
Adblock detector