Задача: определить является ли простым заданное число

program a1; var m,i,k:integer; begin read(m); for i:=1 to m do if m mod i = 0 then k:=k+1; if k=2 then write (' число простое') else write (' число не является простым') end.

35. Дано n целых чисел. Определить, есть ли среди задан­ных чисел «близнецы», т.е. простые числа, разность между ко­торыми равна двум. План решения задачи: 1.Заполнить массив А, количество чисел s 2.k:=0 – для каждого элемента массива «обнулить» счетчик делителей 3.Ввести обозначения m:=a[j] 4.Если a[j] – простое то помещаем его в В, если нет, то в В помещаем 0. 5.Если в массиве В разность двух соседних чисел =2 то печатаем их и g:=g+1 иначе f:=f+1; 6.Если (f>0) and (g

program a35; var m,i,k,j,s,f,g:integer; a,b:array[1..10] of integer; begin read(s); for i:=1 to s do begin a[i]:=random(10); write(a[i]:3)end; for j:=1 to s do begin k:=0; m:=a[j]; for i:=1 to m do if m mod i = 0 then k:=k+1; if k=2 then b[j]:=a[j] else b[j]:=0; end;

writeln; for j:=1 to s do write (b[j]:3); writeln; f:=0; g:=0; for j:=1 to s-1 do if (b[j]-b[j+1]=2)or (b[j]-b[j+1]=-2) then begin writeln (b[j]:3,b[j+1]:3); g:=g+1 end else f:=f+1; if (f>0) and (g

Результаты работы программы: 9 – количество чисел в А А: В: Печатаем числа-близнецы 3 5

36. Определить, есть ли в данном массиве два соседних положительных элемента. Найти номера первой (последней) пары. program a36; var i,j,m,n,k :integer; a:array[1..10] of integer; begin read(k); {количество чисел в массиве} for i:=1 to k do begin a[i]:=random(100)-30; write(a[i]:3)end; writeln;

{последний номер положительной пары} for i:=1 to k-1 do if (a[i]>0) and (a[i+1]>0) then j:=i; writeln(' номера последних положительных ', j,' и ', j+1); writeln; {последний номер положительной пары} for i:=k-1 downto 1 do if (a[i]>0) and (a[i+1]>0) then j:=i; writeln(' номера первых положительных ', j,' и ', j+1); end.

Результаты работы программы: 8 – количество чисел в массиве А А: номера последних положительных 5 и 6 номера первых положительных 1 и 2

Самостоятельно: 37. Определить, есть ли в данном массиве элемент, равный заданному числу. Если есть, то вывести номер одного из них. 38. Определить, есть ли в данном массиве положительные элементы, кратные k. k вводится с клавиатуры. 39. Определить пару соседних элементов с суммой, равной заданному числу.