Pascal написать программу вычисления суммы используя цикл до

Question

Информатика: Pascal написать программу вычисления суммы используя цикл до

teacupbunnies1 · Answer

program sum;

const p=100;

var n:integer; s:real;

BEGIN

S:=0;

for n:=1 to p dо S:=S+n;

writeln(‘s=’, s:7:2);

END.

uses crt;
var i:integer;
sum,s:real;
Beginclrscr;
i:=0;
while i<10 do
begin
i:=i+1;
sum:=exp(ln(i)*2);
s:=s+sum;
writeln('Сумма*=',s);
end;
еnd.