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

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


textual

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

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.

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

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



Похожие ответы
  1. Помогите написать программу: В массиве из 10 целых чисел подсчитать сумму элементов более чем в 2 рах превышающих минимальный.

  1. Даны три множества Х1={1,2,3,…, 20}, Х2={10, 11, 12,… , 30} и Х3={1, 3, 5,… , 19, 21). Сформировать множество Y=(Х1+Х2)*(Х1+ХЗ). Из которого выделить подмножество Y1 чисел, делящихся на 4 без остатка. На экран вывести множество Y и мощность множества YI.

  1. Дана целочисленная функция f(k)= K^3-25K^2+50K+1000 определена только для целых значений аргумента К. Составить программу вычисления значений функции f(k) для 20 значений аргумента К в интервале (-30,60) с выводом лишь тех значений, которые удовлетворяют заданному условию, и подсчетом остальных ее значений. Задать А=30000, В=60000, М=4. Значение f(K) заключено либо между значениями T1=-a-sqrt(b+m), T2=sqrt(a+b+m) , но не равно 0

  1. Помогите пожалуйста Дана последовательность чисел a1 (i=1,2,... ,N).Подсчитать произведения и количество целых чисел , вывести их значения и порядковые номера.

  1. Для всех чисел от 0 до 99 (целых) выбрать и вывести на экран такие, сумма цифр которых равна заданному числу.

  1. Составьте программу представления в двоичном виде (ввод и вывод в виде 8 нулей и единиц для каждого числа) выполнения операций: 1. сложения 2. вычитания для двух целых чисел в дополнительном коде.

  1. Найти область определения функции D(f), ее нули экстремумы и множество значений W(f) построить график функций нарисовав и разместив оси координат y=x^3-3x^2+2 (Pascal abc)

  1. Необходимо написать программу создания типизированного файла с целыми числами. Количество чисел 100. Числа генерируются случайным образом в интервале от -100 до +100. Ребят, плз, помогите с написанием) Заранее спасибо