3. Задан ряд последовательных натуральных чисел от n до m (n меньше m меньше 1000000), из которого удаляют сначала все числа, стоящие на нечетныхместах, затем из оставшегося ряда удаляют все числа стоящие на нечетных местах.Эти...
3. Задан ряд последовательных натуральных чисел от n до m (n
Гость
Гость
Ответ(ы) на вопрос:
Гость uses crt;
var n,m,i,j,k:integer;
a:array[1..1000] of integer;
begin
repeat
writeln('Введите 2 натуральнвх числа n0)and(n=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.
Не нашли ответ?
Похожие вопросы