Question

Срочно решить программу на паскале (50 баллов)

Answer 1

Ответ:

var

s,i:integer;

begin

readln(s);

for i := 1 to 10 do

        begin

        s:= s+i;

        end;

writeln('s=',s);          

end.