1+3+5+7+...(exemplu:Pentru n=3 avem 1+3+5=9.)
program problema_1;
var
s: word;
n, i: integer;
begin
write('n=&
readln
for i := 1 to n do
s := s + n;
end;
writeln('suma este:',s );
end.
Присоединяйтесь — мы покажем вам много интересного
Присоединяйтесь к ОК, чтобы подписаться на группу и комментировать публикации.
Комментарии 1
program problema_1;
var
s: word;
n, i: integer;
begin
write('n=&
#39readln
for i := 1 to n do
begin
s := s + n;
end;
writeln('suma este:',s );
end.