Напечатать нечетные элементы, которые входят хотя бы в одно из этих множеств и количество таких элементов - Pascal ABC

  1. Пусть заданы множество А и множество В целых чисел, напечатать нечетные элементы, которые входят хотя бы в одно из этих множеств и количество таких элементов.


textual

Код к задаче: «Напечатать нечетные элементы, которые входят хотя бы в одно из этих множеств и количество таких элементов - Pascal ABC»

{Пусть заданы множество А и множество В целых чисел, напечатать нечетные
элементы, которые входят хотя бы в одно из этих множеств и количество
таких элементов.}
var
  a,b:set of byte;
  k,i:byte;
begin
  randomize;
  a:=[];
  b:=[];
  for i:=0 to 255 do
    begin
      k:=random(255);
      if not(k in a) then
        include(a,k);
      k:=random(255);
      if not(k in b) then
        include(b,k)
    end;
  writeln('Множество А:');
  for i:=0 to 255 do
    if i in a then
      write(i:4);
  writeln;
  writeln('Множество B:');
  for i:=0 to 255 do
    if i in b then
      write(i:4);
  writeln;
  k:=0;
  writeln('Результат:');
  for i:=0 to 255 do
    if (not odd(i)) and ((i in a) or (i in b)) then
      begin
        write(i:4);
        inc(k);
      end;
  writeln;
  writeln('Количество: ',k);
  readln;
end.

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

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



Похожие ответы
  1. Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют следующему свойству:слово симметрично

  1. Даны отрезки a,b,c,d. Для каждой тройки этих отрезков , из которых можно построить треугольник, напечатать площадь данного треугольника. Определить процедуру Plo(x,y,z), печатающую площадь треугольника со сторонами , если такой треугольник существует.

  1. Нечетные строки таблицы заменить на вектор X

  1. Напечатать все элементы массива s, индексы которых являются числами Фибоначчи (1, 2, 3, 5, 8, 13, …).

  1. Напечатать в порядке убывания все цифры, входящие в запись данного натурального числа.

  1. Дана строка произвольного текста. Напечатать в алфавитном порядке буквы текста, входящие в него не менее двух раз, и их ASCII-коды.

  1. Дан двумерный массив, элементами которого являются отдельные символы.Напечатать слова, образованные нечетными элементами каждого столбца массива. Помогите пожалуйста, нужна написать на Паскале ABC.Добавлено через 8 минут Как переделать эту программу под мой случай задание для этой программы:написать слова, образованные четными элементами каждой строки массива const n=5; var a:array[1..n] of string;//массив строк s:array[1..n,1..20]of string;//двумерный массив слов i,j,k,p:integer; begin for i:=1 to n do begin write('Str ',i,':');//вводим строки readln(a[i]); end; i:=1;p:=0; repeat k:=1; for j:=1 to length(a[i]) do begin if a[i][j]=' ' then k:=k+1 //разбираем очередную строку на слова и считаем их else s[i,k]:=s[i,k]+a[i][j]; end; for p:=1 to k do if p mod 2=0 then write(s[i,p],' ');//четные слова в каждой строке выводим на экран i:=i+1; until i>n; readln end.

  1. Добрый день. Программа печатает гласные русские буквы в алфавитном порядке, но я не могу понять как указать числа появления их в строке. Буду рад любой помощи, спасибо.

  1. Для целого числа N от 1 до 8 напечатать фразу "Мы нашли грибов" согласовав окончание слова "гриб"