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

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


textual

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

program a1;
var a: array[1..15] of integer;
    b: array[1..15] of integer;
k,j,i:integer;
begin 
randomize;
k:=0;
 
for i:=1 to 15 do 
    begin
   a[i]:=random(100);
   write(a[i]:3);
   end;
   writeln;
for j:=1 to 15 do 
    begin   
   b[j]:=random(100) ;
 write(b[j]:3);
    end;
    writeln;
    for i :=1 to 10 do 
  if (i mod 2 =0) and (a[i]=b[j]) and (i=j) then begin k:=k+1;                                            
                                            writeln('a[',i,']=b[',j,']=',a[i]);
                                      end
                                      else continue;
writeln('количество повторяющихся:',k);
 
end.

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

9   голосов, оценка 3.889 из 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