Var
i,n:integer;
IsOdd,IsEven:boolean;
begin
IsOdd:=false; IsEven:=false;
Write('Введите три числа: ');
for i:=1 to 3 do
begin
Read(n);
if n<>0 then
if (n mod 2)=0 then IsEven:=True
else IsOdd:=True
end;
Write('Среди введенных чисел ');
if IsOdd then Write('есть нечетное')
else Write('нет нечетных');
if IsEven then Write(' и есть четное')
else Write('и нет четных')
end.
<em><u>Тестовое решение:</u></em>
Введите три числа: 5 8 3
Среди введенных чисел есть нечетное и есть четное
В бизнесе генеральный директор четко распределяет обязанности между подчиненными. Одни занимаются построением определенной последовательности действий, другие, подчиняясь этому течению, расширяют и дополняют его необходимой информацией, чтобы в итоге получить необходимый результат.
Когда мы рождаемся, родители вкладывают в нас программу, по которой мы слепо следуем, пока не вырастем. Но будучи чуть постарше, начинаем развивать некий алгоритм внутри себя, чтобы как-то проявиться, добиться высот.
Человек, который составляет программы, должен в голове моделировать алгоритм будущего решения. Если же он не обладает достаточным опытом, то и результат может оказаться другим.
Названия и адреса файлов подгоните сами. Я выделю в коде жирным шрифтом.
uses crt;
var i,o:text;
s:string;
ans:integer;
begin
assign(i,'C:\Pascal\input.txt'); reset(i);
assign(o,'C:\Pascal\output.txt'); rewrite(o);
while eoln(i)<>true do
begin
readln(i,s);
if ((s[2]>s[1]) and (s[3]>s[2]) and (s[4]>s[3])) or ((s[2]<s[1]) and (s[3]<s[2]) and (s[4]<s[3])) then
begin
writeln(o,s);
inc(ans);
end;
end;
writeln(ans);
close(o);
<span>end.</span>
1) 1
(х<3)∧((x<2)∨(x>2))
равносильно <span>(х<3)</span>∩<span>((x<2)</span>∪<span>(x>2)) в математике (рис.1)
</span>получаем х∈(-∞;2)(2;3), из предоставленных ответов в этот промежуток входит только число 1.
2)3
НЕ(первая буква гласная) и НЕ(третья буква согласная) =
первая буква согласная и третья буква гласная .
Подходит только слово "связь"
3)3
не(первая буква согласная и вторая буква гласная) и (последняя буква гласная) =
(не(первая буква согласная) или не(вторая буква гласная)) и (последняя буква гласная)= ( первая буква гласная или вторая буква согласная) и последняя буква гласная.
Т.к. последняя буква точно гласная, вариант 2 отлетает.
у оставшихся первая буква согласная, значит смотрим у кого из них 2 буква согласная, это вариант 3 - СВЕТЛАНА
4)4
НЕ(третья буква гласная) и четвертая буква согласная=
третья буква согласная и четвретая буква согласная.
подходит только вариант 4 - МАТВЕЙ
Каждое понятие имеет объем - количество элементов в него входящее. Если объем равен 1, то это единичное понятие.
Например, Полярная звезда, Луна (как естественный спутник Земли), созвездие Большой медведицы - то, что существует в единственном экземпляре.
Общие понятия - в объем которых входит более одного предмета.
Например, ученик, доктор, город...