Вопрос по информатике:
Пользователь вводит числа - получается последовательность. Если пользователь ввел 0, то программа прекращает свое действие, сразу выдает результат. Т. е. 0 - конец последовательности. Определить верно ли утверждение: "В этой последовательности четное количество элементов. Значение четного элемента последовательности является квадратом стоящего перед ним нечетного числа"
- 13.09.2018 02:52
- Информатика
- remove_red_eye 18780
- thumb_up 27
Ответы и объяснения 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.
- 14.09.2018 07:16
- thumb_up 49
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.