Var a,b,c:longint;
Begin
read(a,b,c);
if c mod 2=1 then
writeln('Нечетное') else
writeln('Четное');
if ((c>=a) and (c<=b)) then
writeln('YES') else
writeln('NO');
<span>End.</span>
1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2494, ...
Вариантов записать огромное количество, но если нужно с минимальным количеством слагаемых, то:
<u>2013=1597+377+34+5</u>
(121<x²)→(x>x+5)=1 (A→B=¬A+B)
(x²≤121)+(x>x+5)=1 (при x>0 x>х+5=0)
x²≤121=1
x=11
ответ 11
Следуйте инструкциям, Adobe Flash Player нужен для отображения некоторых веб-страниц.
===== PascalABC.NET =====
begin
var d := 0;
while True do
if ReadlnReal >= 22 then break
else d += 1;
Print( d div 7)
end.