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