Помогите решить

[sergey653]

Помогите решить


Помогите решить задание Паскаль

 

[Vladimir_S]

Помогите решить задание Паскаль

Тьфу, стыд какой - просить "помощи" по этим ясельным задачкам! Ладно, живите:

Const
 b=1.5;
 h=0.2;

Var
 i:Byte;

Function Y(x:real):real;
begin
 if x>1 then Y:=b*x-Ln(x)/Ln(10) else
 if x=1 then Y:=1 else
 Y:=Sin(b*x)+Abs(b*x);
end;

Begin
 Writeln(' x         Y');
 for i:=1 to 10 do
  Writeln(0.2*i:3:1,Y(0.2*i):12:5);
 Readln
End.

Var
 N,i,Sum:LongInt;

Begin
 Write('N = ');
 Readln(N);
 Sum:=0;
 for i:=1 to N do
  if (N mod i)=0 then Inc(Sum,i);
 Writeln('Sum = ',Sum);
 Readln
End.

 

[sergey653]

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