С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Boris_xXx
0 / 0 / 0
Регистрация: 24.04.2017
Сообщений: 4
1

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

24.04.2017, 09:30. Просмотров 172. Ответов 3
Метки нет (Все метки)

Как это реализовать: Найти количество членов последовательности, модуль которых при делении на 3 дает в остатке 1. Заменить эти элементы нулями. Помогите?
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.04.2017, 09:30
Ответы с готовыми решениями:

Дан массив из n целых чисел и целые числа p, q (p>q>0). В массиве заменить нулями элементы, модуль которых при деле-нии на p даёт в остатке q
Нужно чтобы сначала выводился первый массив, потом изменённый.

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

Определить количество чисел, которые при делении на 7 дают в остатке 3
Даны натуральные числа a1, a2, a3, a4. а) верно ли, что одно число...

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

В последовательности все числа меньшие двух заменить нулями и получить сумму членов, принадлежащих интервалу
Даны натуральное число n, действительные числа a1,a2,a3,..., an. В этой...

3
Hitoku
Модератор
1705 / 1304 / 1400
Регистрация: 28.10.2016
Сообщений: 4,240
Завершенные тесты: 4
24.04.2017, 10:34 2
Как вариант:
Pascal
1
2
3
4
5
begin
  var p := Range(0, ReadlnInteger('Количество членов последовательности:') - 1).Select(v -> ReadlnInteger).ToArray;
  writeln('Количество: ', p.Where(v -> v mod 3 = 1).Count,NewLine,
    'Изменённая последовательность: ', p.Select(v -> v mod 3 = 1 ? 0 : v).JoinIntoString(' '));
end.
Пример:
Количество членов последовательности: 4
1
2
3
4
Количество: 2
Изменённая последовательность: 0 2 3 0
1
JuriiMW
2070 / 1128 / 1603
Регистрация: 10.12.2014
Сообщений: 4,300
24.04.2017, 10:34 3
Pascal
1
2
3
4
5
6
begin
  var a := ReadArrInteger('Введите последовательность:', ReadInteger('Количество членов последовательности:'));
  Write('Заданная последовательность: '); a.Println;
  WriteLn('Количество членов последовательности, которые при делении на 3 дают остаток 1 равно ', a.Where(i->i mod 3=1).Count);
  Write('После замены таких значений нулями: '); a.Select(i->i mod 3=1?0:i).Println;
end.
1
Boris_xXx
0 / 0 / 0
Регистрация: 24.04.2017
Сообщений: 4
24.04.2017, 19:22  [ТС] 4
Спасибо большое! Выручили.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.04.2017, 19:22

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

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

Найти суму тех членов ряда, модуль которых больше или равен заданному Е
Дан числовой ряд и некоторое число Е. Найти суму тех членов ряда, модуль...


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

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

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