Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/11: Рейтинг темы: голосов - 11, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 24.05.2014
Сообщений: 8
1

Выясняющую, есть ли среди чисел n числа, кратные заданному числу A

18.06.2015, 18:31. Показов 2038. Ответов 1
Метки нет (Все метки)

Написать программу, выясняющую, есть ли среди чисел i3-17in2+n3, i=1,…,n числа кратные заданному числу A и одновременно не кратные заданному числу B.
Вывести найденные числа на печать.
Контрольный пример: n=10, A=3, B=2. Ответ: -699, -10557.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.06.2015, 18:31
Ответы с готовыми решениями:

Из цепочки чисел удалить числа кратные заданному числу
Добрый день! Помогите пожалуйста с программой. Программа с динамическим массивом. Вводится...

Выяснить, есть ли среди чисел, заданных формулой, числа кратные A и одновременно не кратные B
Написать программу, выясняющую, есть ли среди чисел i3-17in2+n3, i=1,…,n числа кратные...

Напечатать на экране все трёхзначные числа, кратные заданному числу
Напечатать на экране все трёхзначные числа кратные заданному числу k (5 ≤ k ≤ 50 )....

Создать файл и записать в него числа последовательности, не кратные заданному числу
помогите ребят! #include "stdafx.h" #include <iostream> #include <ctime> #include <fstream> ...

1
3450 / 2388 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
18.06.2015, 23:15 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  i, n, a, b, f: integer;
 
begin
  write('Enter n: ');
  readln(n);
  write('Enter a, b: ');
  readln(a, b);
  for i := 1 to n do
  begin
    f := i * i * i - 17 * i * n * n + n * n * n;
    if (f mod a = 0) and (f mod b <> 0) then
      writeln(f);
  end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.06.2015, 23:15

Создать файл и записать в него числа последовательности, не кратные заданному числу
Дана последовательность из n целых чисел. Создать файл и записать в него числа последовательности,...

Удалить из списка натуральных чисел все элементы, кратные заданному числу k
Составить программу, которая удаляет из списка натуральных чисел все элементы, кратные заданному...

Среди заданных чисел найти количество пар чисел, модуль разности которых равен заданному числу
Дана строка из n целых чисел. Найти кол-во пар чисел модуль разности которых равен d. ВХОДНЫЕ...

Среди всех N значных чисел указать те, сумма цифр которых равна заданному числу К
Не могу разобраться.... помогите! Код работает, но я видимо не правильно понимаю условие задание.....


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

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

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