program fibonach; var n,k:integer;
function fib(n:integer):integer;
var k:integer;
begin
if (n=1) or (n=2) then k:=1
else k:=fib(n-2)+fib(n-1);
fib:=k;
end;
begin
write('Введите номер: ');read(n);
k:=fib(n);
writeln(k);
end.
это 2. 1 сегодня-завтра сделаю)
Добавлено (16.03.2011, 17:00)
---------------------------------------------
program palind;
var i,n,ch:integer;pal:boolean;
procedure palindrom (n:integer;var pal:boolean);
var i,k,des,p:integer;c:boolean;
begin
k:=1;pal:=true;p:=n;
if p>1 then
begin
while p div 10 <> 0 do
begin
p:=p div 10; {считаем количество цифр в числе}
k:=k+1
end;
des:=1;
for i:=1 to k-1 do des:=des*10;
if ((n div des)=(n mod 10)) then
begin
n:=n mod des div 10;
palindrom (n,c);
pal:=pal and c
end
else pal:=false
end;
end;
begin
write ('Введите n: ');read(n);
for i:=1 to n do
begin
write ('Введите число: ');
read(ch);
pal:=true;
palindrom(ch,pal);
if pal then writeln ('Это число - палиндром')
else writeln('Это число - не палиндром');
end
end.
1-я