Вопрос по информатике:
1) как объединить операторы в блок для выполнения в цикле
2)привидите пример одного из цикла
3) решите задачу через While:
прибавьте данное число к четным индексам и вычтите его же из нечетных.. спасиб заранее
- 15.07.2016 13:24
- Информатика
- remove_red_eye 13554
- thumb_up 22
Ответы и объяснения 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.
- 16.07.2016 04:45
- thumb_up 23
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.