Var
n,i,chet:integer;
s:string;
begin
readln(n);
str(n,s); // Функция str преобразует число n в строку s
for i:=1 to length(s) do begin
if (ord(s[i])-48) <= 0 then halt; // Процедура halt завершает программу если введенное число <=0
if (ord(s[i])-48) mod 2 = 0 then chet:=chet+1;
end;
writeln('Кол-во цифр - ',length(s),' Кол-во четных - ',chet);
<span>end.</span>
<span>За 2. Взвешиваем по три монеты, если одна легче, то фальшивая среди этих трех, если равновесие, то фальшивая среди трех невзвешененных, потом по одной из тройки где фальшивая, и рассуждаем так же, если одна из монет легче, то она фальшивая, а если равновесие, то фальшивая невзвешенная. Точно также из 27 монет можно определить фальшивую за 3 взвешивания, из 81 за 4, из 3 в степени N монет - за N взвешиваний. А если число монет не равно 3 в степени N, то число взвешиваний равно ближайшей большей степени тройки. То есть, например, если монет 74 - то одну монету тоже можно определить за 4 взвешивания, как и среди 81 монеты. А вот если монет 82, то уже только за 5 взвешиваний - ближайшая большая степень двойки - 243 - 2 в степени 5.</span>
Двоичное представление чисел 0 1 2 3 и 4
Е 0 0000
П 1 0001
Н 2 0010
Ч 3 0011
Ь 4 0100
ПЕЧЕНЬЕ в виде двоичного кода
0001 0000 0011 0000 0010 0100 0000
ответ в восьмеричном коде 100601100
К пиктограмме.
а) Тут копают
б) Осторожно, забор!
в) Лестница
г) Нельзя сюда!
д) Второстепенная дорога
е) Там тупик (забыла название)
ж) Место для солнцезащитных очков (Очень ярко! - не помню лол)
Program prog;
uses crt;
var a:array[1..10] of integer;
s,i: integer;
begin
clrscr;
for i:=1 to 10 do begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:=1 to 10 do begin
if (a[i] mod 2 = 1) and (a[i]>6) then
s:=s+a[i];
end;
writeln('Сумма чисел s = ', s);
end.