Пользователь вводит числа - получается последовательность. Если пользователь ввел 0, то программа прекращает свое действие, сразу выдает результат. Т. е. 0
5-9 класс
|
- конец последовательности. Определить верно ли утверждение: "В этой последовательности четное количество элементов. Значение четного элемента последовательности является квадратом стоящего перед ним нечетного числа"
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.
А может быть, это надо чтобы программа говорила, соблюдается это условие или нет?
она и должна говорить)
Ясно, тогда сейчас сделаю))
блин, я вас просто обожаю!!!
Вот бы все девчонки так говорили!))))
Другие вопросы из категории
изображение размером 600х400. Какого размера изображение можно хранить в
том же объеме видеопамяти, если использовать 16-цветную палитру? полное решение, пожалуйста.
2. Подмножество объектов, имеющих общие признаки (5 букв)
3. Основные, самые важные признаки объекта (12 букв)
4. Признаки, по которым один класс объектов отличается от другого, называются: ...классификации (9 букв, третья - "н")
5. Классификация, в качестве основания которой взяты существенные признаки объектов (12 букв, третья - "т")
6. Схему отношения "является разновидностью" называют схемой ...(14 букв, восьмая - "д")
7. Классификация, в качестве основания которой взяты несущественные признаки объектов (13 букв, восьмая - "в")
В бригаде строителей 25 человек. Среди них 20 человек моложе 30 лет и 15 человек старше 20 лет. Может ли так быть? Почему?
Буду рад, если поможете хотя бы с одним вопросом >^_^
Читайте также
с клавиатуры вводится число х. если остаток от деления х на 6 равен 2, то значение f(x)=4*x^2 если остаток от деления х на 6 равен 3, то значение f(x) = корень из х , если остаток от деления на 6 =0 то f(x) = x.
Написать программу в паскале используя операторы if и else . Нарисовать блок схему
их в массив и вычислить их медиану.
Пользователь вводит число. Сколько последовательно расположенных натуральных чисел необходимо, что бы их произведение стало больше введенного пользователем числа.
сообщает название этого дня. Например, если ввели 1, то выведется фраза «Это понедельник» и т. д.