Составить алгоритм нахождения всех неотрицательных чисел стоящих на четных местах в последовательности x1, x2, x3, ..., Xn

Question

Ермолай

30 апреля, 17:05

+1

Ответы (2)

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

Эллина · Answer 1

Var n, i:integer;

Begin

Readln (n) ;

For i:=2 to n do

Begin

If (i>0) then writeln (i) ;

inc (i, 1) ;

End;

End.

Ританя · Answer 2

Ританя 30 апреля, 20:40

0

1 2 3 4 5 6 7 8 9 и т. д