В рамках национальной программы «Цифровая экономика» знающими людьми было принято решение о построении Национальной Вычислительной Машины (сокращённо НВМ). Работать эта машина будет под управлением Национальной Операционной Системы и будет использоваться исключительно в национальных интересах.

Ивану Петровичу, сыну Петра Ивановича, программисту 4-го разряда, поручили реализовать часть базового функционала Машины, в рамках которого машина должна научиться вычислять, сколько раз число N, состоящее только из нулей и единиц, без ведущих нулей, можно делить на двойку до тех пор, пока результат остаётся чётным.

Формат ввода
Вводится чётное положительное число N, состоящее из десятичных цифр 0 и 1, без ведущих нулей.

Формат вывода
Единственное целое число — ответ на задачу.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

gladchenko77

02.02.2020 06:01

Используя оператор выбора написать программу: определить знак заданного целого числа...

lizarepkina2004

28.01.2023 04:33

1. Записать, как на языке Паскаль ( в разделе var) опишется массив A[10], если его элементы целые числа? 2. Записать, как на языке Паскаль запишется фрагмент программы для заполнения...

AMeleschckina2

16.09.2022 17:38

5) Үшөлшемді бейнелерді салу кезендерініңережелерін атаңдар:а) зерттелетін объектінің кеңістік-уақыттық сипаттамасы;b) модельдеу, бояу, жарықтандыру, түсірілім, рендеринг;с) бояуға,...

ulyalyas

04.11.2021 21:05

Создать таблицу значений для построения графика Z=X^3+Y^3 на интервале {-5;5) с шагом 0,5 Создать таблицу значений для построения графика Z=X^2-sin(Y) на интервале {-5;5) с шагом...

novkov641800

26.07.2021 14:07

Какие предметы или произведения искусства часто встречаются в музее в качестве экспонатов культурного наследия Возможно ли что в будущем роботы будут такими экспонатами к примеру...

поор2

25.02.2023 12:51

Как такое решать? Сам алгоритм...

vadimmatus

20.02.2021 03:19

9. Что общего можно сделать на компьютере, используемом для совместного выполнения определенных документов удаленно? * А) компьютерные документы Б) Плагиат Б) общедоступные пакеты...

sonyapanferova

04.08.2022 20:28

Переведите десятичное число 58 в шестнадцатиричную систему счисления. * 3А2F5D3BПереведите число 707 из восьмиричной системы счисления в десятиричную. 185256455850Найдите основание...

shaxnozatosheva

05.12.2022 14:06

Задача по информатике 9класс на Python Відомо результати плавання вільним стилем надистанції 50 м п’яти учнів кожного з трьох 10-хкласів школи. Розробіть код, за до якого визначається...

yulya678

01.09.2021 21:47

Из скольких точек состоит фотография, если её информационный объём составляет 6 мб. фотография цветная 1 точка 24 бита....

Ответ:

Емсимася

02.01.2021 22:10

1)
const n=10;
var a:array[1..n] of integer;
i,s:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51)-25;
write(a[i]:4);
end;
writeln;
s:=0;
for i:=1 to n do
if a[i]>0 then s:=s+a[i];
s:=2*s;
writeln('s = ',s);
end.

Пример:
Массив A:
20 -22 -1 12 -2 -11 18 -17 22 18
s = 180

2)
const n=33;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(96);
write(a[i]:3);
end;
writeln;
for i:=1 to n do
if a[i] mod 13 = 0 then write(a[i]:4);
end.

Пример:
Массив A:
45 33 64 67 83 50 44 68 49 62 77 12 30 48 9 11 54 11 63 2 32 56 60 45 18 75 94 26 14 78 5 20 51
26 78

0,0(0 оценок)

Ответ:

aygi777

10.09.2020 15:12

Program lab3;
var i,imax: integer;
max: real;
b:array[1..50]of real;
begin
max:=0;
for i:=1 to 50 do
begin
b[i]:=(sin(i)+exp(sin(i)))*cos(i);
write(b[i]:4:2,' ');
if b[i]>max then
begin
max:=b[i];
imax:=i;
end;
end;
writeln;
writeln('Максимальное число: ',max:4:2,' , его номер: ',imax);
end.

1.71 -1.41 -1.28 0.19 -0.16 0.46 1.95 -0.54 -1.75 -0.03 0.00 0.04 1.76 0.50
1.95 -0.44 0.16 -0.18 1.30 1.39 -1.72 -0.98 0.22 -0.21 0.74 1.88 -1.04 -1.52
0.11 -0.09 0.24 1.91 -0.05 -1.89 -0.20 0.08 -0.09 1.57 0.96 -1.90 -0.69 0.21
-0.22 1.04 1.68 -1.45 -1.25 0.19 -0.17 0.49

Максимальное число: 1.95 , его номер: 7

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку