Question

Сделайте program на языке pascal. 25 баллов.

Answer 1

var i,j:integer;
y,x: real;
begin 
y:=0;
read(x);
for i:=1 to 4 do  
       for j:=1 to 5 do                   
            y:=y+(i*j-Ln(x));        
write(y:0:3); 
end.

Answer 2

P-общее число позиций или 0, если автоматом, Q - позиции дробной части

Answer 3

посмотрите у меня в вопросах про а.я есть, также 25 баллов этот же пример

Answer 4

Var
i,j:integer;
E,X:real;
Begin
E:=0;
Write('X = ');Read(X);
For i:= 1 to 4 do
    For j:= 1 to 5 do
        E:=E+(i*j-ln(X));
WriteLn(E)
End.