4 / 4 / 2
Регистрация: 18.11.2012
Сообщений: 76
1

Составить программу формирования последовательности из первых n натуральных чисел делящихся нацело на a и b одновременно

06.05.2013, 03:12. Показов 2700. Ответов 2
Метки нет (Все метки)

Дано задание: Составить программу формирования последовательности из первых n натуральных чисел делящихся нацело на a и b одновременно.
Не могли бы вы мне объяснить суть задания, ну и собственно помочь с его реализацией?
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.05.2013, 03:12
Ответы с готовыми решениями:

Найти 15 первых натуральных чисел делящихся нацело на 19 и больших 100
1 С начала 1990 года по некоторый день прошло n месяцев и 2 дня (n>=1). Определить к какому месяцу...

Составить программу вывода на экран простых чисел их первых N натуральных чисел..
Составить программу вывода на экран простых чисел их первых N натуральных чисел..

Найти 20 первых натуральных чисел делящихся на 13 или 17, начиная с 500
6. Найти 20 первых натуральный чисел делящихся на 13 или 17 начиная с 500

Вложеные циклы.Составить программу вывода на экран простых чисел из первых N натуральных чисел используя решето Эратосфена.
Составить программу вывода на экран простых чисел из первых N натуральных чисел используя решето...

2
753 / 546 / 211
Регистрация: 12.11.2009
Сообщений: 1,100
06.05.2013, 09:03 2
Лучший ответ Сообщение было отмечено Eldon как решение

Решение

Вводим массив чисел (задаем количество элементов и формируем случайным образом), задаем два числа а и b, проверяем нет ли остатка при делении элементов массива на заданные числа. Выводим все такие числа на печать.
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
28
29
uses crt;
var
   m:array[1..1000]of integer;
   i,n,a,b,kol:integer;
begin
   clrscr;
   randomize;
   write('n=');
   read(n);
   for i:=1 to n do
    begin
       m[i]:=random(100);
       write(m[i],'  ');
    end;
   writeln;
   write('a=');
   read(a);
   write('b=');
   read(b);
   kol:=0;
   for i:=1 to n do
    if (m[i] mod a =0)and(m[i] mod b =0) then
     begin
        write(m[i],'  ');
        kol:=kol+1;
     end;
   if kol=0 then writeln('takih chisel net');
   readkey;
end.
1
142 / 148 / 116
Регистрация: 15.11.2012
Сообщений: 537
Записей в блоге: 2
06.05.2013, 09:49 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Var
    i,n,a,b:Integer;
    j:LongInt;
    mas:Array[1..20]Of Integer;
BEGIN
Write('a='); Readln(a);
Write('b='); Readln(b);
Write('n='); Readln(n);
i:=1;j:=1;
While i<=n Do Begin
    If (j mod a=0)and(j mod b=0) Then Begin
        mas[i]:=j;
        Inc(j);
        Inc(i);
    End Else Inc(j);
End;
For i:=1 To N Do Write(mas[i]:5);
Readln
END.
Здесь i в качестве счётчика до N, а j перебирает все целые числа которые подходят условию, ошибка здесь может произойти когда j дойдёт до максимального LongInt, т.е. превысит сколько-то там миллионов
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.05.2013, 09:49
Помогаю со студенческими работами здесь

Найти 15 первых натуральных чисел делящихся нацело на 19
помогите 1) Найти 15первых натуральных чисел делящихся нацело на 19 и находящихся в интервале...

Найти 15 первых натуральных чисел, делящихся нацело на 19 и больших 100
Найти 15 первых натуральных чисел, делящихся нацело на 19 и больших 100.

Найти 20 первых натуральных чисел, делящихся нацело на 13 или на 17 и больших 500
Решите ещё плиз! у меня практика у меня уже крыша едет от этих задач! №98. Найти 20 первых...

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


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

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

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