0 / 0 / 0
Регистрация: 14.01.2014
Сообщений: 7
1

Среди целых чисел байтового диапазона, превышающих 200, найти числа, делящиеся на 3 или 7

19.01.2014, 14:15. Показов 875. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Среди целых чисел байтового диапазона, превышающих 200, найти числа, делящиеся на 3 или 7, но не на обе эти цифры.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.01.2014, 14:15
Ответы с готовыми решениями:

Найти сумму всех целых чисел, больших -50, меньших 200 которые кратны 5 и 8 и заканчиваются на 5 или 0
Найти сумму всех целых чисел, больших -50, меньших 200 которые кратны 5 и 8 и заканчиваются на 5...

Из диапазона целых чисел выделить множество целых чисел, делящихся без остатка на K, или на L
Из диопозона целых чисел m..n выделить. 1)множество целых чисел,деляшихся без остатка на K,или на L...

среди двузначных чисел найдет все числа, делящиеся на число, вводимое с клавиатуры.
Написать программу, которая среди двузначных чисел найдет все числа, делящиеся на число, вводимое с...

Создать файл целых чисел, не превышающих заданного числа N
Создать файл целых чисел, не превышающих заданного числа N.

6
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
19.01.2014, 14:28 2
Pascal
1
2
3
4
5
6
7
var
  i: byte;
begin
  for i:=201 to 255 do
    if ((i mod 3=0) or (i mod 7=0)) and (i mod 21<>0) then
      write(i,' ');
end.
1
0 / 0 / 0
Регистрация: 14.01.2014
Сообщений: 7
19.01.2014, 14:34  [ТС] 3
а что значит: i mod 21<>0? т.е. я понимаю это из-за того что число не должно делится одновременно на 3 и на 7, но мне не понятна запись "<>0"
0
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
19.01.2014, 14:36 4
если число делится одновременно и на 3 и на 7, то остаток от деления будет равен 0, а нам нужны те, что не дают остаток, равный нулю, то есть остаток от деления"<>0"
1
0 / 0 / 0
Регистрация: 14.01.2014
Сообщений: 7
19.01.2014, 14:39  [ТС] 5
а понятно т.е. "<>" обозначает: не равно.
не могли бы вы помочь еще с блок-схемой данного алгоритма, и что значит: терминальные блоки в алгоритмах не по ГОСТу?
0
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
19.01.2014, 14:46 6
не знаю, может еще кто подскажет, и насколько эта схема соответствует госту - тоже не берусь судить
Миниатюры
Среди целых чисел байтового диапазона, превышающих 200, найти числа, делящиеся на 3 или 7  
1
0 / 0 / 0
Регистрация: 14.01.2014
Сообщений: 7
19.01.2014, 15:34  [ТС] 7
спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.01.2014, 15:34
Помогаю со студенческими работами здесь

Ввести с консоли n целых чисели поместить их в массив. Найти среди них указанные числа и вывести на консоль: Числа, которые делятся на 3 или на 9.
Помогите объяснить. Каждую строку, что делает и для чего нужна. Спасибо. 4_Ввести с...

Найти чётные числа, делящиеся без остатка на сумму своих цифр из заданного с клавиатуры диапазона
Private Sub Command1_Click() Dim a As Long, b As Long, c As Long Dim i As Long, k As Integer, s...

Построение множества из целых чисел, кратных 7, но не кратных 5 и 9 из диапазона от 1 до 200
Построить множество, состоящее из целых чисел, кратных 7, но не кратных 5 и 9 из диапазона от 1 до...

Даны три целых числа a, b и c. Найти количество чётных чисел среди них
Не использовать вложенных условных операторов. Не использовать сложных составных условий,...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru