1) как объединить операторы в блок для выполнения в цикле
2)привидите пример одного из цикла
3) решите задачу через While:
прибавьте данное число к четным индексам и вычтите его же из нечетных.. спасиб заранее
1) как объединить операторы в блок для выполнения в цикле
2)привидите пример одного из цикла
3) решите задачу через While:
прибавьте данное число к четным индексам и вычтите его же из нечетных.. спасиб заранее
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.