Две задачи операторам цила

[Exact]

Люди прошу вашей помощи:
1. Вывести на экран таблицу вычисленных значений Y при изменении X в интервале [0.2;2] с шагом р=0,2 и=1,5 по соответствующим формулам

     
     (bx-lgx____при_X>1
Y= ( 1_________при_X=1
     (sinbx+|bx|_при_X<1

2. Найти сумму делителей натурального числа

Возможно, задачи и не сложные но их формулировка заводит меня в тупик. Просьба помогите. Буду очень признателен за рабочий код+объяснение сути.

[Air]

Если я всё парвильно понял...
То Вам нужно:

(b*x)-lg(x) при X>1  
1 при X=1  
sin(b*x)+|b*x| при X<1

тогда...

...
begin
if x > 1 then
 y:=(b*x)-lg(x)
else
 if x = 1 then
 y:=1
else
 sin(b*x)+abs(b*x)
end;
...

код написал налету, так что доведёшь надеюсь до ума то сам...

По второму что-то я не понял.

[puporev]

Вторая задача заключается в том, чтобы в цикле от 2 до половины заданного числа найти все делители этого числа и сложить их

uses crt;
var a:longint;
    i,sum:integer;
begin
clrscr;
write('a=');readln(a);
sum:=0;
for i:=2 to a div 2 do
   begin
     if a mod i=0 then
     sum:=sum+i;
   end;
write ('sum=',sum);
readln
end.

По первой задаче видимо b=1.5, а не и=1,5 (раскладку клавиатуры не сменил). Еще непонятно что за скобки в 1 и 3 строчках. Видимо просто украшение.
Вот код твоей небольшой таблички.

uses crt;
var x,y,b,p:real;
    i:integer;
begin
clrscr;
write('  x     y');  //здесь пробелы подбери, чтоб красиво было.
writeln;
x:=0;p:=0.2;b:=1.5;
while x<=2 do
  begin
    x:=x+p;
    if x<1 then
      begin
         y:=sin(b*x)+abs(b*x);
         writeln(x:3:2,'  ',y:5:2);
      end
    else if x=1 then
       begin
         y:=1;
         writeln(x:3:2,'  ',y:5:2);
       end
    else if x>1 then
      begin
         y:=b*x-ln(x)/ln(10);
         writeln(x:3:2,'  ',y:5:2);
      end;
   end;
readln
end.

[Exact]

Спасибо, задачи действительно оказались плёвыми. Даже стыдно стало, что сам не догнал