Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.90/10: Рейтинг темы: голосов - 10, средняя оценка - 4.90
Auditore2011
0 / 0 / 0
Регистрация: 28.05.2013
Сообщений: 7
1

Посчитать количество элементов в последовательности чисел от 1 до 100, которые делятся нацело на 2 и на 3

28.05.2013, 15:28. Просмотров 1863. Ответов 6
Метки нет (Все метки)

Посчитать количество элементов в последовательности чисел
от 1 до 100, которые делятся нацело на 2 и на 3.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.05.2013, 15:28
Ответы с готовыми решениями:

Количество чисел между 100 и 1000, которые делятся без остатка одновременно на 13 и 15
определите и выведите на экран количество чисел между 100 и 1000, которые...

Найти среди компонентов файла количество чисел, которые делятся на 2 но не делятся на 4.
Надо срочно решить несколько задач, моя вечная благодарность решившему...

Определить количество натуральных чисел, которые не больше N и не делятся ни на одно из чисел 2, 3, 5
Задано натуральное число N. Напишите программу, которая определяет количество...

Определить: количество чисел, которые не делятся на 3
Дана числовая последовательность целых чисел, содержащая N элементов....

количество натуральных чисел, меньших 50, которые не делятся на 11.
плиииззззз, помогите решить 2 задачи по паскалю... 1) определить количество...

6
Striker
Ведущий программист C#
240 / 219 / 154
Регистрация: 19.08.2012
Сообщений: 498
Записей в блоге: 1
28.05.2013, 15:47 2
Pascal
1
2
3
4
5
6
7
8
9
var
  kol, i: integer;
 
begin
  for i := 1 to 100 do
    if ((i mod 2 = 0) or (i mod 3 = 0)) then
      inc(kol);
  Writeln(kol);
end.
0
Maryan
2 / 2 / 6
Регистрация: 21.05.2013
Сообщений: 16
28.05.2013, 16:04 3
что это за код? в программе требуется посчитать деления нацело на два числа, а не на одного из них ...
Вот исправлен:
Pascal
1
2
3
4
5
6
7
8
9
10
11
program z;
uses crt;
var
  kol, i: integer;
 
begin
  for i := 1 to 9 do
    if ((i mod 2 = 0) and (i mod 3 = 0))  then
      inc(kol);
  Writeln(kol);
end.
0
Striker
Ведущий программист C#
240 / 219 / 154
Регистрация: 19.08.2012
Сообщений: 498
Записей в блоге: 1
28.05.2013, 16:06 4
Maryan, не нужно тут наезжать...
У Вас он тоже не верный.
Вот:
Pascal
1
2
3
4
5
6
7
8
9
var
  kol, i: integer;
 
begin
  for i := 1 to 100 do
    if ((i mod 2 = 0) and (i mod 3 = 0))  then
      inc(kol);
  Writeln(kol);
end.
0
Auditore2011
0 / 0 / 0
Регистрация: 28.05.2013
Сообщений: 7
28.05.2013, 16:28  [ТС] 5
Спасибо) Очень помогли) Завтра экзамен(
0
Striker
Ведущий программист C#
240 / 219 / 154
Регистрация: 19.08.2012
Сообщений: 498
Записей в блоге: 1
28.05.2013, 16:29 6
Auditore2011, Удачи на экзамене! Когда-то я тоже его сдавал
0
Maryan
2 / 2 / 6
Регистрация: 21.05.2013
Сообщений: 16
28.05.2013, 17:36 7
ну да, когда тестировал прогу, забил поменять 9 на 100) сорі)

Добавлено через 28 минут
ну да, когда тестировал прогу, забил поменять 9 на 100) сорі)
0
28.05.2013, 17:36
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.05.2013, 17:36

Напечатать в порядке возрастания элементы множества, которые делятся нацело на 3 или 8.
program upr1; const n =20; type mas=array of byte ; mn=set of byte; var...

Найти количество целых чисел от a до b включительно, которые делятся на 7
Найдите количество целых чисел от a до b включительно, которые делятся на 7 не...

Найдите количество элементов, которые оканчиваются на 8 и делятся на 3
1) Введите массив из 5 элементов с клавиатуры и найдите количество элементов,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru