четверг, 24 декабря 2009 г.

выделить множество чисел кратных заданому

{Из множества целых чисел 1..20 выделить множество чисел, делящихся на 2 или на 3 без остатка}
const
   N = 20;
var
   a: array [1..N] of integer;
   i: integer;
begin
   writeln('инициализация массива случайными числами');
   for i:=1 to N do a[i]:=random(9)+1;

   writeln('вывод начальных данных');
   for i:=1 to N do write(a[i]:2);
   writeln;
   
   writeln('числа кратные 2: ');
   for i:=1 to N do if (a[i] mod 2) = 0 then write(a[i]:2);
   writeln;
   
   writeln('числа кратные 3: ');
   for i:=1 to N do if (a[i] mod 3) = 0 then write(a[i]:2);
   writeln;

   writeln('числа кратные 2 и 3: ');
   for i:=1 to N do if ((a[i] mod 2) = 0) and ((a[i] mod 3 = 0)) then write(a[i]:3);
   writeln;
end.

вывод:
инициализация массива случайными числами
вывод начальных данных
80 90 85 12 95 45 66 39  3 80 66 91 94 42 27 95 25 25 78 26
числа кратные 2:
80 90 12 66 80 66 94 42 78 26
числа кратные 3:
90 12 45 66 39  3 66 42 27 78
числа кратные 2 и 3: 
90 12 66 66 42 78

Комментариев нет:

Отправить комментарий