S:= 1/a + 1/a во 2 +1/a в 4...... написать программу с циклом на языке Паскаль

1

Ответы и объяснения

Лучший Ответ!
  • Sky09
  • профессор
2013-05-25T00:48:52+04:00

uses crt;
var s:real; a,n:integer;
begin
clrscr;
S:=0;
write('a='); read(a);
if a<>0 then
begin
for n:=1 to 3 do
begin
S:=1/a;
a:=sqr(a);
end;
end;
write('s='s);
end.