1) как объединить операторы в блок для выполнения в цикле 2)привидите пример одного из...

Question

1) как объединить операторы в блок для выполнения в цикле

2)привидите пример одного из цикла

3) решите задачу через While:

прибавьте данное число к четным индексам и вычтите его же из нечетных.. спасиб заранее

Answer 1

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.