6a141scool
3 часа назад
Ответы и объяснения
// PascalABC.NET 3.3, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!
begin
var s:=0.0; var y:=1.0; var x:=1.0;
var p:=1.0;
var n:=3; var t:=5;
for var i:=1 to 10 do
begin
s:=s+y/x; x+=1;
y:=-y;
Writeln(‘s=’,s);
end;
Writeln(‘s=’,s);
for var i:=1 to 5 do
begin
p*=((n)/(t));
n+=2; t+=2;
end;
Writeln(‘p=’,p);
end.
Загрузить png
0.0
0 оценок
0 оценок
Печально, но… неверно.
ок спасибо что заметили
PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
Внимание! Если программа не работает, обновите версию!
№1
begin
var (s,z):=(0.0,1);
for var i:=1 to 10 do begin s+=z/i; z:=-z end;
Writeln(s)
end.
Результат
0.645634920634921
№2
begin
Writeln(3/13)
end.
Результат
0.230769230769231
Во вложении — контрольное решение задания №1 в пакете Maple 15
Загрузить jpg
5.0
Если что-то не читается, обновите страницу