Program n1; var S,i,n: integer; begin i:=1; S:=0; writeln('введите n: '); readln(n); while (i<=n) do begin S:=S+i; i:=i+1; end; writeln('сумма: ',S); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
