бобри купують потрібні їм речі шляхом обміну на бартерним ринку кожен продавець у правій руці тримає табличку зображенням товару який не хоче придбати у лівій руці він тримає свій товар для обміну бобри покупці приходять на ринок з одним з таким товарів моркви морозиво тістечко риба кленове листя монета перстень виберіть всім продавців таким чином щоб будь-який покупець зміг купити ялинку не більше ніж за три обміни
1)
const n = 10;
var
a : array [1..n] of integer;
i : integer;
begin
randomize;
for i := 1 to n do
begin
a[i] := 22 + random(114);
if a[i] > 100 then
writeln (a[i]);
end;
end.
2)
var
a,n,r,i : integer;
begin
r := 1;
readln (a,n);
for i := 1 to n do
r := r * a;
writeln (r);
end.
3)
var
n,i,r : integer;
begin
r := 1;
readln (n);
for i := 1 to n do
r := r *i;
writeln (r);
end.
4)
var
i : integer;
begin
for i := 192 to 223 do
write(chr(i); ,' ');
end.
5)
var
i : integer;
begin
for i := 255 downto 240 do
write (chr(i),' ');
writeln();
for i := 239 downto 224 do
write (chr(i),' ');
end.
7)
var
i : integer;
begin for i := 122 downto 97
do writeln(chr(i));
end.