Нужна . будет дано 4 программы. нужно составить блок-схемы. , нужно. увы, почему-то сама я не понимаю program summation; var i, summa,a: integer; error: integer; begin summa : =0; write('введите натуральное числo: '); repeat read(a); if (a< 0) or (error< > 0) then writeln('число неверно задано! повторите ввод! '); until (a> =0) and (error=0); for i: =1 to a do summa: =summa +i; writeln('сумма натуральных чисел из промежутка [1,a]: ', summa); readln; end. var a: real; i: integer; begin a: =10; for i: =1 to 7 do begin a: =a+(a*0.1); end; write(a,' '); end. var n,i: integer; s: real; begin writeln('вычисление частичной суммы ряда: 1+1/2+1/3+…'); write('введите количество суммируемых членов ряда -> '); readln(n); s: =0; for i: =1 to n do s: =s+(1/i); writeln('сумма первых ',n,' членов ряда равна: ',s); readln; end. uses crt; var i: integer; begin i: =3; repeat write(i,' '); i: =i+3; until i> =1000; end.

123456789Ad1jssjsj    1   26.05.2019 14:16    1