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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.