1)var ar:array[1..10] of integer;
ar2:array[1..10] of integer;
i,k,m:integer;
begin;
randomize;
writeln('First array');
for i:=1 to 10 do
begin;
ar[i]:=random(7,9);
write(ar[i]:4);
end;
m:=0;
writeln;
for i:=1 to 10 do
if ar[i]=8 then
begin;
inc(m);
ar2[m]:=8;
end;
for i:=1 to 10 do
if ar[i]=7 then
begin;
inc(m);
ar2[m]:=7;
end;
for i:=1 to 10 do
if ar[i]=9 then
begin;
inc(m);
ar2[m]:=9;
end;
writeln('Final array');
for i:=1 to 10 do
begin;
ar[i]:=ar2[i];
write(ar[i]:4);
end;
end.
2)var a,b,m,i,j,c:int64;
begin;
readln(m);
for i:=1 to m do
begin;
for j:=1 to m do
if sqr(i)+sqr(j)=m then
begin;
writeln(i,'^2+',j,'^2=',m);
c:=1;
end;
end;
if c<>1 then
writeln('Невозможно');
<span>end.</span>
110010(2)=2+16+32=50%(девочек),1010(2)=2+8=10(мальчиков)
10=50%,10+10=20
Ответ:20 человек в классе.
<u>[16.39]</u>
a = 30/2*6, получим 90.
Так как 90 > 6, то c = 90-4*6
Ответ: 66
<u>[16.40]</u>
a = -2*3+22/2<u>,</u> получим 5.
Так как 5 < 3 неверно, то мы перепрыгиваем на "else:" и получаем c = 3*5+4*3
Ответ: 27
var a,b,k:integer;
begin
writeln('a, b, k:');
readln(a,b,k);
writeln('Каждый получит по ', (a+b) div (k+2),' гр.');
end.
Пример:
a, b, k:
15 20 4
Каждый получит по 5 гр.