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

Определить количество чисел, которые при делении на 7 дают в остатке 3

16.10.2015, 19:59. Показов 4364. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Даны натуральные числа a1, a2, a3, a4.
а) верно ли, что одно число положительно
б) Определить количество чисел, которые при деление на 7 дают в остатке 3 и не принадлежат отрезку [a4; 6*a4]
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.10.2015, 19:59
Ответы с готовыми решениями:

Найти все пятизначные числа, которые при делении на A дают в остатке B, а при делении на C дают в остатке D
Напишите программу, которая вводит четыре натуральных числа (a, b, c и d) и находит все пятизначные...

Составить программу поиска трехзначных чисел которые при делении на 47 дают в остатке 43
Составить программу поиска трехзначных чисел которые при делении на 47 дают в остатке 43!! ...

Найти элементы массива, которые при делении на 7 дают в остатке 1, 2 или 5
Здравствуйте! Пожалуйста помогите мне написать код к заданию: Дан одномерный массив А целых чисел...

Переписать в файл G те элементы файла F, которые при делении на 5 дают в остатке 1 или 4
Создать файл F из целых чисел. Переписать в файл G те элементы файла F, которые при делении на 5...

1
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
17.10.2015, 12:38 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Den1098 Посмотреть сообщение
а) верно ли, что одно число положительно
"только одно" или "хотя бы одно"?

Добавлено через 8 минут
хотя стоп. как натуральное число может быть "не положительным"?

Добавлено через 20 секунд
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
function ZadB(const x, a4: LongWord): Boolean;
begin
    ZadB := (x mod 7 = 3) And Not (x in [a4..6 * a4]);
end;
var
    a1, a2, a3, a4: LongWord;
    count: 0..4;
begin
    Write('a1='); ReadLn(a1);
    Write('a2='); ReadLn(a2);
    Write('a3='); ReadLn(a3);
    Write('a4='); ReadLn(a4);
    count := 0;
    if (ZadB(a1, a4))
    then
        Inc(count);
    if (ZadB(a2, a4))
    then
        Inc(count);
    if (ZadB(a3, a4))
    then
        Inc(count);
    if (ZadB(a4, a4))
    then
        Inc(count);
    WriteLn('B: ', count);
end.
0
17.10.2015, 12:38
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.10.2015, 12:38
Помогаю со студенческими работами здесь

В массиве определить количество элементов, которые при делении на 3 дают остаток 2
Ввести одномерный массив A из 11 элементов. Определить в нём количество тех элементов, которые при...

Определить в массиве количество тех элементов, которые при делении на 3 дают остаток 2
Ввести двумерный массив A(3х4).Определить в нём количество тех элементов, которые при делении на 3...

Определить произведение элементов, которые при делении на 2 дают такой же остаток как и при делении на 3.
1 задача Ввести двумерный массив A 3×4 . Определить произведение элементов, которые при делении...

Поиск четырехзначных чисел, которые при делении на 133 дают в остатке 125, а при делении на 134 - 111
2.Составить программу поиска четырехзначных чисел которые при делении на 133 дают в остатке 125.а...


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

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

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