62

3. Задан ряд последовательных натуральных чисел от n до m (n
09 марта 2023

3. Задан ряд последовательных натуральных чисел от n до m (n

категория: информатика

98

uses crt; var n,m,i,j,k: integer; a: array[1… 1000] of integer; beginrepeatwriteln ('Введите 2 натуральнвх числа n0) and (n=2 do begin i: =1; while i <= kdo begin for j: =ito k-1 do a[j]: =a[j+1]; k: =k-1; i: =i+1; end; i: =2; while i <= kdo begin for j: =ito k-1 do a[j]: =a[j+1]; k: =k-1; i: =i+1; end; end; write (a[k]); end.

Знаете ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...