циклы по паскаль

[DeadWind]

Помоги пожалуйста решить по циклам ,а то не получается!!!
1) вычислить сумму первых пяти четных чисел . Если таких нет или их количество меньше 5Б то вывести соответсвующее сообщение.
2)вычислить 1+1/(2+1/(3+1/(4......1/(8+1/9))))))
3)Подсчитать произведение ненулевых цифр.
4)Составить программу табулирования функции y=f(x), организовав ввод значений границ табулирования и шага с клавиатуры
y= sqrt(x*x-2*x)/(x+3)+lnx

например y=2/sqrt(x)-1 при шаге [-3,3] и шага 1 программа должна вывести:
x=-3 функция не определена
x=-2 функция не определена
x=-1 функция не определена
x=0 y=-2.000
x=1 функция не определена
x=2 y=4.828
x=3 y=2.732

[Mad_Cat]

а то не получается

а ты пробовал7 если да - покажи

[DeadWind]

1)

program pr1;
var s,i,a,n:integer;
begin
       s:=0;
       a:=0;
       readln(n);
       while a<=5 do
       begin
       for i:=1 to n do
       if i mod 2 = 0 then s:=s+i ;
       a:=a+1;
       end;
       if a<5 then writeln('количество четных чисел меньше 5')
              else writeln (s);
end.

4)

program pr7;
var x,y,a,b,h:real;
begin
a:=-3;
b:=3;
h:=1;
writeln ('тпбулирование на [',a,';',b,'] с шагом ',h);
x:=a;
repeat
      y:=sqrt((x*x-2*x)/(x+3))+ln(x);
      if x=0 then write (функция не определена');
      x:=x+h
      until x>b
end.

они не правильные,остальные не пробовал


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.