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

Question

Информатика

Антоний

13 декабря, 04:50

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

+3

Ответы (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.