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

alina 09 апреля 2023

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.