1) как объединить операторы в блок для выполнения в цикле 2)привидите пример одного из цикла 3) решите задачу через While: прибавьте данное число к четным индексам и вычтите его же из нечетных.. спасиб заранее

Question

1) как объединить операторы в блок для выполнения в цикле 2)привидите пример одного из цикла 3) решите задачу через While: прибавьте данное число к четным индексам и вычтите его же из нечетных.. спасиб заранее

Гость

Ответ(ы) на вопрос:

Accepted Answer

Var p,a,i,n:integer; begin n:=2,a:=5 for i:=1 to n do if odd(i) then p:=a+1,else p:=i-a Writeln(i,p) end. 1)p:=5+1=6 2)p:=2-5=-3 const n=4; Var i,a,p:integer begin a:=5;i:=1 while i=4 do begin if odd(i) then p:=i+a else p:=i-a; Wr(p); i:=i+1; end; end.