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

Question

Информатика

Марюха

17 мая, 01:43

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

+4

Ответы (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.