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
Среди введенных чисел есть нечетное и есть четное
Это просто переменные, никакого глубинного смысла.
42 = 32+8+2
то есть состоит оно из 2в пятой степени + 2 в третьей + 2 в первой
значит единицы надо ставить во второй (первая степень двоек), четвертый (третья степень двоек) и шестой (пятая степень двоек) разряды
Это писаться будет так:
101010
Ура!)
Да, дело в цикле. Там он специально настроен на этот пункт. Замените его на
for i := 1 to n do
for j := i to n do
if (i+j>n) then sum := sum + a[i, j];
И все заработает. Надеюсь, Вам можно применять ветвления. Циклом я отбираю пункт Б, и ветвлением отбираю пункт Г. Их слиянием как раз и есть пункт К.
Закрашены в разные цвета. Какими наименьшим числом красок можно обойтись? - это продолжение? если это то Ответ 4