Задать вопрос
11 октября, 23:33

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

+4
Ответы (1)
  1. 12 октября, 01:22
    0
    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.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «3. Задан ряд последовательных натуральных чисел от n до m (n ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы