Дано действительное число a. требуется найти первое значение числа n, при котором сумма s=1+1/2+1/3+…+1/n превышает a. программу составьте двумя способами: используя цикл с предусловием и цикл с постусловием. в abc pascal

Var a, s: real; i: longint; begin       readln(a);       {с предусловием}       i : = 2;       s : = 1;       while(s < = a) do       begin           s : = s + 1 / i;           i : = i + 1;       end;       writeln(i - 1);       {с постусловием}       i : = 1;       s : = 0;       repeat             s : = s + 1 / i;             i : = i + 1;       until(s > a);       writeln(i - 1); end.

Var n1,n2,n3,n4,n5: integer; begin readln(n1,n2,n3,n4,n5); if (n1> n2)  and (n1> n3)  and (n1> n4)  and (n1> n5)  then writeln('максимальное число: ',n1) else if (n2> n1)  and (n2> n3)  and (n2> n4)  and (n2> n5)  then writeln('максимальное число: ',n2) else if (n3> n1)  and (n3> n2)  and (n3> n4)  and (n3> n5)  then writeln('максимальное число: ',n3) else if (n4> n1)  and (n4> n3)  and (n4> n2)  and (n4> n5)  then writeln('максимальное число: ',n4) else writeln('максимальное число: ',n5); end.

        информатика  - это   как правило наука о   методах и процессах сбора, хранения информации. с информатики   мы хорошо владеем компьютером и другими электронными и портативными приборами. с науки информатики мы   можем работать с различными программами, например как: paint - программа по созданию рисунков, граффики и т.д., так-же имеются программы по созданию мультфиьмов, анимаций, презентаций и т.д.         в заключении хочу сказать, что без этой науки мир развивался бы дольше!