2.2
а) 2 б) 4 в) 0 г) нельзя делить на 0 д) 2 e) -2 ж) 2 з) 6 и) 0 к) 2 л) нельзя делить на 0 м) -2 н) -2 о) 2 п) 2
2.3
Можно получить числа 0, 1, 2, 3, 4
2.4
а) 40, 41, 42, 43, 44
б) 7
в) 43
г) 6, 12, 18, 24
д) 9
Var i,j,p :integer; a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(20)+1;
writeln(a[i]);
end;
writeln('Массив по возрастанию');
for i:=1 to 10 do
for j:=1 to 10 do begin
if a[i]<a[j] then begin
p:=a[i];
a[i]:=a[j];
a[j]:=p;
end;end;
for i:=1 to 10 do
writeln(a[i]);
writeln('Массив по убыванию');
for i:=1 to 10 do
for j:=1 to 10 do begin
if a[i]>a[j] then begin
p:=a[i]; a[i]:=a[j]; a[j]:=p; end;end;
for i:=1 to 10 do writeln(a[i]);
readln;end.<span>
</span>
Площадь пола дворца это сумма площадей всех 40 залов, вычисляемая по формуле "длина зала" * "ширина зала"
s = 0
for номер_зала in range(40):
s = длина_зала[номер_зала] * ширина_зала[номер_зала]
Program asd;
var f,g:text;
t,fs,gs:string;
i,k,n:integer;
IsFilesEqual:boolean;
begin
IsFilesEqual:=true;
assign(f,'fi1.txt');
assign(g,'fi2.txt');
reset(f);
reset(g);
n:=0;
while not eof(f) do
begin
if not IsFilesEqual then
break;
readln(f,fs);
readln(g,gs);
if fs<>gs then
begin
IsFilesEqual:=false;
inc(n);
if length(fs)<Length(gs) then
t:=fs
else
t:=gs;
for i:=1 to length(t) do
if fs[i]<>gs[i] then
begin
k:=i;
break;
end;
end;
end;
close(f);
close(g);
if IsFilesEqual then writeln('Совпадают.')
else
writeln('Строка = ',n,' Позиция = ',k);
readln;
<span>end.</span>