Задание 2.
program prog;
function F(n:integer):integer;
begin
if n<=1 then F:=1
else F:=F(n-1)+F(n-2)
end;
begin
write(F(7))
end.
Вывод программы: 21
Задание 3.
program prog;
function F(n:integer):integer;
begin
if n<=1 then F:=1
else F:=F(n-1)*F(n-2)+2
end;
begin
write(F(5))
end.
Вывод программы: 87
Задание 5.
program prog;
procedure F(n:integer);
begin
write('*');
if n > 0 then begin
F(n-2);
F(n-2);
F(n div 2);
end
end;
begin
F(5);
end.
Вывод программы (34 звёздочки):
Задание 6.
program prog;
procedure F(n: integer);
begin
write('*');
if n > 0 then begin
F(n-3);
F(n-2);
F(n div 2);
F(n div 2);
end
end;
begin
F(6);
end.
Вывод программы (97 звёздочек):
Задание 7.
program prog;
procedure F(n: integer);
begin
write('*');
if n > 0 then begin
write('*');
F(n-2);
F(n-2);
F(n div 2);
end
end;
begin
F(6);
end.
Вывод программы (77 звёздочек):
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested in
f:text;
i,n:integer;
s,s1:string;
begin;
assign(f,'text.txt');
reset(f);
while not(Eof(f)) do
read(f,s);
close(f);
n:=0;
while n<>length(s) do
begin;
inc(n);
for i:=0 to 9 do
begin;
str(i,s1);
if s[n]=s1 then
begin;
delete(s,n,1);
s1:=s1+s1;
insert(s1,s,n);
inc(n);
end;
end;
end;
writeln(s);
end.