program fofgogjoj; const nmax=100; var m:array[1..nmax] of integer; n,i,j,k:byte; a,b,x:integer; begin randomize; repeat Write('Размер массива до ',nmax div 3,' n='); readln(n); until n in [1..nmax div 3]; Writeln('Исходный массив:'); for i:=1 to n do begin m[i]:=random(50); Write(m[i],' '); end; Writeln; Writeln; Write('Введите число для вставки перед a='); Readln(a); i:=1; k:=0; while i<=n do begin if m[i]>a then begin n:=n+1; k:=1; for j:=n downto i+1 do m[j]:=m[j-1]; m[i]:=a; i:=i+2; end else i:=i+1; end; if k=0 then Writeln('Элементов больше ',a,' нет') else begin Writeln('Массив после вставки числа ',a,' перед большими ',a); for i:=1 to n do Write(m[i],' '); Writeln; Writeln; Write('Введите число для вставки после b='); Readln(b); i:=1;k:=0; while i<=n do if m[i]<b then begin n:=n+1; k:=1; for j:=n downto i+2 do m[j]:=m[j-1]; m[i+1]:=b; i:=i+2; end else i:=i+1; if k=0 then Writeln('Элементов меньше ',b,' нет') else begin Writeln('Массив после вставки числа ',b,' после меньших ',b); for i:=1 to n do Write(m[i],' '); end; end; readln end.
Uses crt; label goback; var a,b,c,d,e,f:integer; begin goback: write('Введите число: ');read(a); if (a<1000) or (a>9999) then begin writeln('Введите четырехзначное число.'); goto goback; end; b:=a div 1000; c:=a div 100 mod 10; d:=a div 10 mod 10; if (b=c) and (c=d) then begin writeln('Первые 3 цифры равны.'); end; if (b=c) and (c>d) then begin writeln(d,' - Наименьшая цифра из первых 3 цифр.');end; if (d=b) and (b>c) then begin writeln(c,' - Наименьшая цифра из первых 3 цифр.');end; if (c=d) and (d>b) then begin writeln(b,' - Наименьшая цифра из первых 3 цифр.');end; if (b>c) and (c>d) and (b>d) then begin writeln(d,' - Наименьшая цифра из первых 3 цифр.');end; if (c>d) and (d>b) and (c>b) then begin writeln(b,' - Наименьшая цифра из первых 3 цифр.');end; if (b>d) and (d>c) and (b>c) then begin writeln(c,' - Наименьшая цифра из первых 3 цифр.');end; if (b mod 2 = 0) then begin writeln('Первая цифра четная'); end;if (c mod 2 = 0) then begin writeln('Вторая цифра четная');end; if (b mod 2 = 0) and (c mod 2 = 0) then begin writeln('И первая и вторая цифра четная'); end; if (b mod 2 = 1) and (c mod 2 = 1) then begin writeln('И первая и вторая цифра не четная');end; End.
2)
program fofgogjoj;
const nmax=100;
var
m:array[1..nmax] of integer;
n,i,j,k:byte;
a,b,x:integer;
begin
randomize;
repeat Write('Размер массива до ',nmax div 3,' n=');
readln(n);
until n in [1..nmax div 3];
Writeln('Исходный массив:');
for i:=1 to n do
begin
m[i]:=random(50);
Write(m[i],' ');
end;
Writeln;
Writeln;
Write('Введите число для вставки перед a=');
Readln(a);
i:=1;
k:=0;
while i<=n do
begin
if m[i]>a then
begin
n:=n+1;
k:=1;
for j:=n downto i+1 do
m[j]:=m[j-1];
m[i]:=a;
i:=i+2; end
else i:=i+1;
end;
if k=0 then
Writeln('Элементов больше ',a,' нет')
else
begin
Writeln('Массив после вставки числа ',a,' перед большими ',a);
for i:=1 to n do
Write(m[i],' ');
Writeln;
Writeln;
Write('Введите число для вставки после b=');
Readln(b);
i:=1;k:=0;
while i<=n do
if m[i]<b then
begin
n:=n+1;
k:=1;
for j:=n downto i+2 do
m[j]:=m[j-1];
m[i+1]:=b;
i:=i+2; end
else
i:=i+1;
if k=0 then
Writeln('Элементов меньше ',b,' нет')
else
begin
Writeln('Массив после вставки числа ',b,' после меньших ',b);
for i:=1 to n do
Write(m[i],' ');
end;
end;
readln
end.