function IsSimpleNumber(n: integer): boolean; var i: integer; begin IsSimpleNumber := true;
for i := 2 to round(sqrt(n) + 1) do if n mod i = 0 then begin IsSimpleNumber := false; exit; end; end;
begin read(n); prev := 0;
for i := n to 2 * n do if IsSimpleNumber(i) then if prev = 0 then prev := i else if i - prev = 2 then begin writeln(i, ', ', prev, ' - близнецы'); halt; end else prev := i;
Program _9; Type marr = array [1..100,1..100] of real; procedure p1(var x:marr;r1,r2:integer); var i,j:integer; begin for i:=1 to r1 do begin for j:=1 to r2 do begin x[i,j]:=random(10); write(x[i,j]:4); end; writeln; end; end; function f1(var x:marr;r1,r2:integer):integer; var i,j,k:integer; begin k:=0; for i:=1 to r1 do for j:=1 to r2 do if (x[i,j]>=0)and(x[i,j]<=1) then k:=k+1; f1:=k; end; Var a,b: marr; n,m,s,d: integer; Begin randomize; writeln('n,m:'); readln(n,m); writeln('Первая таблица:'); p1(a,n,m); writeln('s,d:'); readln(s,d); writeln('Вторая таблица:'); p1(b,s,d); writeln('k1 = ',f1(a,n,m)); writeln('k2 = ',f1(b,s,d)); end.
Даш лучшый коммент
Объяснение:
10-15 думаю правильно..