Пользователь вводит числа - получается последовательность. Если пользователь ввел 0, то программа прекращает свое действие, сразу выдает результат. Т. е. 0 - конец последовательности. Определить верно ли утверждение: "В этой по...
Пользователь вводит числа - получается последовательность. Если пользователь ввел 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.
Не нашли ответ?
Похожие вопросы