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

Формулировка задачи:

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

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

15   голосов, оценка 3.800 из 5


СДЕЛАЙТЕ РЕПОСТ