766439бит=0.0912474мб
1.65гб=1689.6мб
Var
i:integer;
mas:array[1..n] of integer;
begin
for i:=1 to 20 do
mas[i]:=random(200);
for i:=1 to 20 do
write(mas[i]:4);
end.
Вроде работает
var a, b, c, P: real;
begin
writeln ('vvedite storoni');
readln ( a, b, c);
P:= a + b + c;
if P > 20 then begin
writeln (' horosho');
end
else begin
writeln ('otlichno');
end;
end.
Если вопрос алгоритм строения колажа то:
выбрать на что будешь клеить и прикреплять изображения
выбрать изображения
прикрепить их к фону
написать тему колажа и подписать изображения
красиво оформить
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>