Ответы
Ответ дал:
0
Program naconecto;vara,n:real;i:integer;BEGINi:=2;writeln('ckoJlbko pa3?');readln(n);
if n < 0 then begin n:=-n; end;
while (i<=n) do begin if (1+1/i>1) and (1+1/i <=1.5) then begin writeln('a=',1+1/i); end else begin writeln('a ne=',1+1/i); end; i:=i+1; end;END.
if n < 0 then begin n:=-n; end;
while (i<=n) do begin if (1+1/i>1) and (1+1/i <=1.5) then begin writeln('a=',1+1/i); end else begin writeln('a ne=',1+1/i); end; i:=i+1; end;END.
Приложения:
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад