Question

Помогите написать программу на pascal!!! Использовать while. Я в 9-ом классе.

Answer 1

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.

876270ec48623f67edd0b6ca51b687dd.pas