Лабораторка.Прошу помощи в решении задач на паскале

[kikim]

Помогите пожалуйста написать 3 задачки.
1.Дано натуральное число N.Получить новое число путем отбрасывания старшей цифры слева и цифры справа. Если N<100, то новое число равно нулю. Пример. N=1234. Ответ.23
2.Дано натуральное число. Определить, количество 2 в записи числа.например 123242. ответ 3
3.Вычислить сумму, вычисления производить пока значение слагаемого остается большее введенного числа Е.
S=1/2+1/2*4+1/2*4*8+1/2*4*8*16
Р.с. в 3 чето формула не получается никак
Спасибо за помощь.

[Lemo]

1.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  n:integer;
  st:string;
begin
write('Input N: ');
readln(n);
  if n<=100 then
    st:='0'
  else
    begin
      st:=inttostr(n);
      st:=copy(st,2,length(st)-2);
    end;
write('Result: ',st);
readln;
end.

2.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  n,i,c:integer;
  st:string;
begin
write('Input N: ');
readln(n);
st:=inttostr(n);
c:=0;
for I := 1 to length(st) do
    begin
      if st[i]='2' then
         inc(c);
    end;


write('Result: ',c);
readln;
end.

3.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, MATH;


var
  e,i,n:integer;
  st:string;
  s:extended;
begin
write('Input E: ');
readln(e);


s:=0;
n:=2;
i:=2;
repeat
s:=s+(1/2)*power(n,i);
inc(i);
until s>e;

write('Result: ',s:6:2);
readln;
end.

Есть сомнения на счет работы 3-й программы, сам посмотришь!

[kikimka]

Ругается..SysUtils.tup не найден..На все равно спасибо смысл уловил!!!

[Lemo]

Я писал на делфи,под Пас сам переделаешь...