Сделайте program на языке pascal. 25 баллов.
Сделайте program на языке pascal. 25 баллов.
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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.
Не нашли ответ?
Похожие вопросы