///PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016) var i,n: integer; s:real; begin readln(n); s:=0; for i:=2 to n do begin if i mod 2=0 then s:=s+1/i else s:=s-1/i ; end; writeln(s); end.
Var v:real; begin write('Введите скорость в км/c: '); readln(v); if v<7.9 then writeln('Ракета упадет на Землю'); if v=7.9 then writeln('Ракета будет двигаться вокруг Земли по круговой орбите'); if (v>7.9) and (v<11.2) then writeln('Ракета будет двигаться вокруг Земли по эллиптической орбите'); if v=11.2 then writeln('Ракета будет двигаться вокруг Солнца по круговой орбите'); if (v>11.2) and (v<16.4) then writeln('Ракета будет двигаться вокруг Солнца по эллиптической орбите'); if v>16.4 then writeln('Ракета покинет Солнечную систему'); end.
Sub Rocket() Dim x As Single x = InputBox("Введите скорость ракеты в км/с") Select Case x Case Is < 7.91 MsgBox "Ракета упадет на Землю" Case 7.91 MsgBox "Ракета будет вращаться вокруг Земли по круговой орбите" Case Is < 11.2 MsgBox "Ракета будет вращаться вокруг Земли по эллиптической орбите" Case Is < 16.4 MsgBox "Ракета будет перемещаться в пределах Солнечной системы" Case Else MsgBox "Ракета покинет Солнечную систему" End Select End Sub
var i,n: integer;
s:real;
begin
readln(n);
s:=0;
for i:=2 to n do begin
if i mod 2=0 then s:=s+1/i
else s:=s-1/i ;
end;
writeln(s);
end.