Напечатать общие элементы множеств и количество таких элементов - Pascal ABC

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


textual

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

var
  i, count: integer;
  set1, set2, set3: set of integer;
 
begin
  set1 := [1, 2, 3];
  set2 := [2, 3, 4];
  set3 := set1 * set2;
  writeln('Общие элементы:');
  for i := 0 to 255 do
    if i in set3 then 
    begin
      write(i, ' ');
      inc(count);
    end;
  writeln;
  writeln('Их количество = ', count);
  readln;
end.

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

6   голосов, оценка 3.333 из 5



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

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

  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 напечатать фразу "Мы нашли грибов" согласовав окончание слова "гриб"

  1. Пмоогите пожалуйста написать программный код: Используя очередь, решить следующую задачу. TYPE FR = FILE OF REAL; За один просмотр файла f типа FR и без использования дополнительных файлов напечатать элементы файла f в следующем порядке: сначала – все числа, меньшие a, затем – все числа из отрезка [a, b], и наконец– все остальные числа, сохраняя исходный взаимный порядок в каждой из этих групп чисел (a ,b – заданы, a