2 в кубе = 8 значит 120 : 3 = 40 символов
Var a,b,n:integer;
begin
writeln('n=');
readln(n);
<span>a:=n mod 10;
b:=n div 10;
if (a= 4) or (b=4) or (a=7) or (b=7) then writeln('yes')
else
writeln('no');
readln;
end.
__________________________
</span>var a,b,n:integer;
begin
writeln('n=');
readln(n);
a:=n mod 10;
b:=n div 10;
if (a= 3) or (b=3) or (a=6) or (b=6) or (a=9) or (b=9)
then writeln('yes')
else
writeln('no');
readln;
end.
Алг Число
нач
цел А
вывод "Введите целое число", нс
ввод А
если mod(А,2) = 0 то
вывод "Число четное"
иначе
вывод "Число нечетное"
все
кон
Решение №1
Складываем степени двойки там где 1, где 0 будет 0:
2⁴+2²+2¹+2⁰ = 16+4+2+1 = 23
Решение № 2
10111₂ = 2⁵-1 - 2³ = 32 -1 -8 =23
Ответ написан в файле.
Через логическую связку and и or не получится проверял. Только построчно.