1) как объединить операторы в блок для выполнения в цикле 2)привидите пример одного из цикла 3) решите через while: прибавьте данное число к четным индексам и вычтите его же из нечетных.. заранее
lina5555555
1
21.05.2019 07:30
0
Другие вопросы по теме Информатика
milamilmi
13.07.2019 23:40
Willowchops
25.11.2021 09:52
MADHOP2016
18.02.2021 09:55
trushanov926
18.02.2021 09:51
sofiacat06
06.05.2020 10:26
shidiemmacom1
06.05.2020 10:26
небопоможетнам1
06.05.2020 10:26
erdanabekok
06.05.2020 10:26
KseniaДьявол
06.05.2020 10:26
Популярные вопросы
- 4стыковки петра гринёва и пугачёва капитанская дочь...
2 - Cоставьте словарную статью (кирпич,земля) заранее !...
2 - Разберите морфологию на казахском языке предложение ; : мен досымды...
2 - Проходит ли график функции у=2х - 5 через точку d(36; 77)?...
3 - 89m2=? см надо решить сколько сантиметр...
2 - Какие проверочные слова к словам прачечная, ошейник,заплыв,плащ-палатка,вход?...
3 - Водил смычок по скрипке старой циган поджарый и седой, и вторила...
2 - Ребёнок в 1-ом классе ,элементарно не можем сделать длину полоски...
1 - Один из трех квадратиков нужно закрасить синим другой красным а 3...
3 - Назовите единицы измерения информации(от самых маленьких до самых...
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.