Question

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

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.

Answer 2

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