Программы паскаль

[Alexey111]

помогите пожалуйста программы написать http://cs308925.userapi.com/v3089251...WAq6l1360I.jpg

[Niro]

Помогаю, итак

1) 
sum:=0;
x:=3;
while sum<n do
begin
  n:=n+1;
  sum:=sum + 1/x;
  x:=x*3;
end; 
writeln (n);

2)
readln (a);
max:=a;
while a<>30000 do
begin
  readln (a);
  if a>=max then max:=a;
end;

3)
n:=1;
while n<128 do
  n:=n*2;



4) 
ввести а
ввести b
ввести h
x:=a;
while x<=b do
begin
  f:=cos(x)+ctg(x);
  write (x:0:2, '-');
  writeln (f:0:2, '-');
  x:=x+h;
end;

Вам остается объявить переменные, оформить вывод.
Если это вам не под силу, то читайте любой учебник/самоучитель по паскалю
или обращайтесь во фриланс

[Alexey111]

большое спасибо