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

@Eldon · Регистрация: 18.11.2012

Дано задание: Составить программу формирования последовательности из первых n натуральных чисел делящихся нацело на a и b одновременно.
Не могли бы вы мне объяснить суть задания, ну и собственно помочь с его реализацией?

@Тамила · 06.05.2013, 09:03

Вводим массив чисел (задаем количество элементов и формируем случайным образом), задаем два числа а и b, проверяем нет ли остатка при делении элементов массива на заданные числа. Выводим все такие числа на печать.

Pascal

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.

@orange_rush · 06.05.2013, 09:49

Pascal

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, т.е. превысит сколько-то там миллионов

@Eldon 4 / 4 / 2 Регистрация: 18.11.2012 Сообщений: 76
		1
	Составить программу формирования последовательности из первых n натуральных чисел делящихся нацело на a и b одновременно 06.05.2013, 03:12. Показов 2700. Ответов 2 Метки нет (Все метки) Дано задание: Составить программу формирования последовательности из первых n натуральных чисел делящихся нацело на a и b одновременно. Не могли бы вы мне объяснить суть задания, ну и собственно помочь с его реализацией? __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

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

Решение