Цитата:
Сообщение от sergey653
Помогите решить задание Паскаль
|
Тьфу, стыд какой - просить "помощи" по этим ясельным задачкам! Ладно, живите:
Код:
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.