Технический форум - Помогите решить

Цитата:

Сообщение от sergey653 (Сообщение 1089888)

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

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

Код:

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.