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

Question

Информатика

Галя

11 октября, 23:33

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

+4

Ответы (1)

Знаете ответ на вопрос?

Калида · Answer 1

uses crt;

var n, m, i, j, k:integer;

a:array[1 ... 1000] of integer;

begin

repeat

writeln ('Введите 2 натуральнвх числа n
read (n, m) ;

until

(n>0) and (n
writeln ('Начальный ряд:') ;

k:=0;

for i:=n to m do

begin

inc (k) ; a[k]:=i;

write (a[i]:4) ;

end;

writeln;

while k>=2 do

begin

i:=1;

while i<=k do

begin for j:=i to k-1 do

a[j]:=a[j+1];

k:=k-1;

i:=i+1;

end;

i:=2;

while i<=k do

begin f

or j:=i to k-1 do

a[j]:=a[j+1];

k:=k-1;

i:=i+1;

end;

end;

write (a[k]) ;

end.