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