Var
a,b:integer;
Begin
readln(a,b);
if a mod 2= 0 then writeln('есть чётное')
else if b mod 2=0 then writeln('есть чётное')
else writeln('Нет чётных);
<span>End.</span>
Ориентируясь на то, что написано на картинке, уточняю задачу за тебя:
Даны запросы и количество страниц по ним:
Футбол | Хоккей = 20000 страниц
Футбол = 14000 страниц
Хоккей = 16000 страниц
И надо найти, сколько страниц будет по запросу Футбол & Хоккей.
Найдем сколько страниц содержат ТОЛЬКО хоккей, без футбола: ~Ф&X = Ф|X - Ф = 20000 - 14000 = 6000
ТОЛЬКО футбол, без хоккея: Ф&~Х = Ф|Х - Х = 20000 - 16000 = 4000
И чтобы найти все страницы, которые содержат И футбол, И хоккей:
Ф&Х = Ф|Х - Ф&~X - ~Ф&Х = 20000 - 6000 - 4000 = 10000
Ответ: 10000
В разделе описаний добавь еще одну переменную с типа integer
и вместо последних 9-ти строк твоей программы должно быть:
{заполняем массив b минимальными элементами каждой строки}
for i := 1 to 5 do
begin
for j := 1 to 5 do if a[i,j] < b[i] then b[i] := a[i,j];
Write(b[i], ' ')
end;
WriteLn;
{сортируем массив b}
for i := 1 to 4 do
for i+1 := 1 to 5 do
if b[i] < b[j] then
begin
c := b[i];
b[i] := b[j];
b[j] := c
end;
{выводим отсортированный массив на экран}
for i := i to 5 do Write(b[i], ' ');
WriteLn
END.
Если сумма цифр в числе кратна 3-м, то число делится на 3 без остатка. У меня получилось 9776544.
Проверяем 9+7+7+6+5+4+4=42, 42/3=14.
