Пользователь вводит числа - получается последовательность. Если пользователь ввел 0, то...

Question

Пользователь вводит числа - получается последовательность. Если пользователь ввел 0, то программа прекращает свое действие, сразу выдает результат. Т. е. 0 - конец последовательности. Определить верно ли утверждение: "В этой последовательности четное количество элементов. Значение четного элемента последовательности является квадратом стоящего перед ним нечетного числа"

Comments

а если 3 9 81 - уже нет (неч. кол-во)

---

3 9 3 9 - тоже нет

---

Вот именно. Мне кажется, в условии еще что-то должно быть

---

не знаю, больше ничего нет

---

Ну тогда так и ответь. И приведи свои примеры.

---

А может быть, это надо чтобы программа говорила, соблюдается это условие или нет?

---

она и должна говорить)

---

Ясно, тогда сейчас сделаю))

---

блин, я вас просто обожаю!!!

---

Вот бы все девчонки так говорили!))))

Answer 1

Var
  n,p,c:integer;
  f:boolean;
begin
c:=1;  //признак четности числа членов последовательности
writeln('Вводите члены последовательности');
repeat
  readln(n);
  if n<>0 then
    begin
    c:=-c;
    if (p*p=n) and (c=1) then f:=true else f:=false;
    p:=n;
    end;
  until n=0;
if f=true then write('Да, верно') else write('Нет, неверно');
end.

Comments

спасибочки, обожаю**