3 задачи: на простые числа, на матрицу и на обработку строки. Дорешать. Паскаль

[gena1128]

1. в интервале от а до б найти все парные простые числа. парными простыми числами называют два простых числа, разность между которыми равна 2. например 3 и5, 11 и 13, 17 и 19.

var a,b,k,i,x,y:integer;
n:array[1..200] of integer;
begin
read(a,b);
for i:=a to b do
n[i]:=i;
k:=a;
repeat
x:=n[k];
y:=n[k+2];
writeln(x,' ',y);
k:=k+1;
until y=b
end.

2.дана вещественная матрица размером 7 на 7, все элементы которой различны. найти скалярное произведение строки в которой находится наибольший элемент матрицы на столбец с наименьшим элементом.

Program zadacha2;
type Matrix = array[1..7,1..7] of integer;
var min, max, imax, jmin, i, j, res: integer;
m: Matrix;
begin
for i := 1 to 7 do
for j := 1 to 7 do
read(m[i, j]);
{ввод матрицы}
max := m[1, 1]; min := m[1, 1]; imax := 1; jmin := 1;
for i := 1 to 7 do
for j := 1 to 7 do
begin
if m[i, j] > max then begin max := m[i, j]; imax := i end;
if m[i, j] < min then begin min := m[i, j]; jmin := j end;
end;
{нашли нужные строку и столбец}
res := 0;
for i := 1 to 7 do res := res + m[imax, i] * m[i, jmin];
writeln(res);
end

3.отредактировать заданное предложение удаляя из него все слова с нечетными номерами и переворачивая слова с четными номерами.

var s,a: string;
i,g,x: integer;
ch: char;
begin
read(s);
j:=1;
i:=1;
s:=s+' ';
while i<=length(s) do
begin
if odd(j) then
begin
while s[i]<>' ' do delete(s,i,1);
delete(s,i,1);
j:=j+1;
end
else
begin
g:=i;
while s[g]<>' ' do g:=g+1;
g:=g-1;
x:=0;
while (x*2)<(g-i) do
begin
ch:=s[g-x]
s[g-x]:=s[i-x];
s[i-x]:=ch;
x:=x+1;
end;
i:=g+2;
end;
if s[length(s)]=' ' then delete(s,length(s),1);
end.

___________
1) Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться.

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Не забывайте об этом!

Модератор.

[Mors13]

это паскаль? могу помочь на с++

[excorsist]

Вроде всё правильно. А что не так то?

[Serge_Bliznykov]

1-я задача. Проверки на простоту нет. Зачем-то добавлен массив, который в данной задаче совсем не нужен... ну и т.д..
попробуйте так:

function isPrime(X: LongInt): boolean;
var i: integer;
Begin
     isPrime:=false;
     if x<2 then Exit;
     if not odd(x) and (x<>2) { проверяем на чётность  }
          then exit;
     i:=3;
     while i <= sqrt(x) do { проверяем только нечётные }
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;
     isPrime:=true;
End;

var i, a, b : LongInt;
begin  
   WriteLn('Введите границы диапазона ( a .. b ):');
   Readln(a, b);
   for i:=a to b-2 do
     if  isPrime(i) and isPrime(i+2) then WriteLn(i,' ',i+2);
   Readln;
end.

[Азамат Казанчев]

по первому коду:
1. где ты вводишь значения а и б
2. для создания цикла for i:=a to b do надо что бы а<б , у тебя где это проверяется?
3. зачем n:array[1..200] of integer; я не понял(пиши коменты)
4. цикл определения парных простых чисел также не понятен, если твое определение парного простого числа, данное выше, правильное
остальноые я даже не смотрел, то что я написал это мои догадки

[gena1128]

НУ да это Паскаль!!!!

[gena1128]

А с другими задачами помочь можешь???!!! Просто я сам не шару в этом племянница попросила решить ей препод дал в институте и сказал дорешать и исправить ошибки!!!