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

Question

Информатика

Митюша

7 января, 19:23

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

+5

Ответы (1)

Знаете ответ на вопрос?

Артюня · Answer 1

Var

n, p, c:integer;

f:boolean;

begin

c:=1; / / признак четности числа членов последовательности

writeln ('Вводите члены последовательности') ;

repeat

readln (n) ;

if n0 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.