Дано множество целых чисел, выделить множество чисел кратных 3 и 4 - Pascal

  1. Дано множество целых чисел, выделить: 1) Множество чисел кратных 3; 2) Множество чисел кратных 4; 3) Множество чисел кратных 3 и 4

textual

Код:

var
  m3, m4, m34: set of byte;
  i, j, s: byte;
 
begin
  m3 := [];
  m4 := [];
  m34 := [];
  for i := 1 to 255 do
  begin
    s := 0;
    j := i;
    while j > 0 do
    begin
      s := s + j mod 10;
      j := j div 10;
    end;
    if s mod 3 = 0 then 
      m3 := m3 + [i];
  end;
  writeln('Множество кратных 3: ');
  for i := 1 to 255 do
    if i in m3 then
      write(i:4);
  
  writeln;
  for i := 1 to 255 do
    if i mod 4 = 0 then 
      m4 := m4 + [i];
  
  writeln('Множество кратных 4: ');
  for j := 1 to 255 do
    if j in m4 then
      write(j:4);
  writeln;    
  
  m34 := m3 * m4;
  writeln('Множество кратных 3 и 4: ');
  for j := 1 to 255 do
    if j in m34 then
      write(j:4);
end.

Похожие ответы
  1. Помогите с задачками,уважаемые програмисты. 1.Дан массив a(n).Все элементы с нечётными номерами,расположеные после первого минимального элемента оформить в виде отдельного массива. 2.Сформировать множество простых и множество составных чисел,входящих в диапазон 7..22. 3.Дано произвольное предложение.Расположить в нём слова в порядке увеличения их длины (я так понял от меньшего к большему ).

  1. Из множества целых чисел 1..20 выделить: множество чисел, делящихся на 6 без остатка; множество чисел делящихся без остатка на 2 или на 3. Полученные множества вывести на экран

  1. Из диопозона целых чисел m..n выделить. 1)множество целых чисел,деляшихся без остатка на K,или на L (K,L- простые). 2) множество чисел деляшихся на K*L без остатка. Заранее спасибо.

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


Нашли ошибку?
Развитие проекта
Яндекс.Метрика