Ответ:
надо разложить его на множители и отыскать чётные
Клавиатура, сканер, граф. планшет
<span>1) Смирнов </span>
<span>Иванов </span>
<span>Кузнецов </span>
<span>Попов </span>
<span>Соколов </span>
<span>Лебедев </span>
<span>Козлов </span>
<span>Новиков </span>
<span>Морозов </span>
<span>Петров
</span>2) кардиган
3) Не знаю, прости
4) Тоже не знаю)
5) Укроп
6) Не знаю
7)
<span> “О бедном гусаре замолвите слово”
8)</span><span>Царь персов Ксеркс пошел в V веке до н. э. войной на Грецию. Персы перебросили мосты через Гелеспонт-пролив, отделяющий Европу от Азии. Буря разметала эти мосты. Разъяренный деспот приказал высечь море цепями, наложить на него клеймо преступника и опустить в воду оковы, приговаривая: "Тебя, горькая вода, казнит владыка за то, что ты причинила ему пакет, не будучи обиженным им. Царь Ксеркс переступит через тебя, делаешь ты этого или нет". А царь Кир наказал "за плохое поведение" речку Гинда-в ее водовороте утонула лошадь царя. Разгневанный Кир повелел переломать реку 360 каналами, превратив реку в ручеек.
Всё, надеюсь помогла)))</span>
13485=1×10⁴+3×10³+4×10²+8×10¹+5×10^0
Удачи;)
var
a,b,c,d:integer;
p:longint;
begin
write ('A = ' );readln(a);
write ('B = ' );readln(b);
write ('C = ' );readln(c);
write ('D = ' );readln(d);
p:=a*b*c*d;
if odd(p)=false then writeln ('YES') else writeln ('NO');
readln;
end.