На каком языке программирования надо?Pascal?
Если да,то
var summ,i:integer;
begin
for i:=1 to 50 do
summ+=i;
end;
WriteLn(summ);
end.
Либо
i:=1;
while i<=50 do
i+=1;
На каком языке программирования надо?Pascal?
Если да,то
var summ,i:integer;
begin
for i:=1 to 50 do
begin
summ+=i;
end;
WriteLn(summ);
end.
Либо
var summ,i:integer;
begin
i:=1;
while i<=50 do
begin
summ+=i;
i+=1;
end;
WriteLn(summ);
end.