Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Составить программу с использованием циклических конструкций While… do… и Repeat… Until…

Ответ оставил Гость

Это для Turbo Pascal 
 
Program zadachka;
uses crt;
var n:integer;
      h:real;
Begin
writeln(vvedite n);
readln(n);
h:=0;
while n>0 do 
begin 
h:=h+1/n;
dec(n);
end;
writeln(h=,h);
end.