tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Другие предметы
Дано натуральное число
Дано натуральное число N (N > 9). Определить количество нулей, идущих подряд в младших разрядах данного числа. (программа Паскаль)
anastasiya264
1 16.04.2019 23:00
4
Ответы
Пан2007
16.04.2019 23:00
var x:longint;
i,k,kmax:integer;
begin
writeln('x=?');
readln(x);
kmax:=0;
k:=0;
while x>0 do
begin
if x mod 10 = 0
then inc(k)
else
begin
if k>kmax
then kmax:=k;
k:=0
end;
x:=x div 10
end;
writeln(kmax)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Другие предметы
Milana2461
24.04.2020 08:35
Вид спорта использующие ракетку и вопан...
есенгельды
24.04.2020 08:35
1.Алмашлыкларның төркемчәләре ничәү? 1) 5; 2) 6; 3) 7. 2. Сорау алмашлыкларын билгеләгез. 1) әллә кем, ниндидер, әллә нәрсә; 2) ни, кая, кайда; 3) беркем, һичнәрсә, һичкем. 3....
mongoliya1
24.04.2020 08:35
ЗАБАНЬТЕ ЕЕ ОНА МАТЕРИТСЯ ПО АНГЛИСКИ ВОТ ЕЕ ОВОТАРКА...
маришка213
24.04.2020 08:36
Придумайте сказку тигрёнок который не хотел учиться охотиться...
VASILIEVAALEXANDRA
24.04.2020 08:36
Частично механизированная сварка реферат...
natakhafedotovp06k9x
08.05.2019 15:26
1. тело погружено целиком в жидкость. выберите неправиль-ное утверждение.1) на тело действует сила тяжести2) масса тела не изменяется3) вес тела уменьшается4) вес тела увеличивается...
dradya
08.05.2019 15:26
Составить сочинение на тему моя учительница ...
Oksana321
08.05.2019 15:25
Какое животное потеет кровью? ...
kmidakova
08.05.2019 15:25
Решите систему уравнений: 7x+2y+11=0 21x+13=-2y^2...
MarkTell
08.05.2019 15:25
Напишите эссе-рассуждение на тему «как изобретатели могут повлиять на страны». соблюдайте тип текста-рассуждения. приводите убедительные аргументы. используйте вводные конструкции....
Популярные вопросы
Надо. сhange the sentences into the present continuous if possible. make any...
2
Сколько стоит 1 кг яблок , если 6 кг яблок дороже 4 кг груш на 1 манат 20 гяпик...
3
Реакции хлора с простыми и сложными веществами (написать уравнения в соответствии...
1
Сравнить излучение абсолютно тёплое тело при температуре t1=100°c,t2=0°c...
1
Двух точек одновременно вышли 2 объекта.расстояние между точками 4 км,скорость...
2
1). вычисли радиус окружности, если отрезок касательной ak=63√дм и ∢oak=30°...
3
Возможно у кого-то есть кроссворд по на тему народы мира ? 25 слов...
1
Составить 2 синквейна со словом курск! зарание ....
3
Решите все три .это итоговый тест по .в первом должно получится х=-3 во втором...
3
Шпагат разрезали на 4 части . первая часть больше второй на 1,2 м и меньше третей...
1
i,k,kmax:integer;
begin
writeln('x=?');
readln(x);
kmax:=0;
k:=0;
while x>0 do
begin
if x mod 10 = 0
then inc(k)
else
begin
if k>kmax
then kmax:=k;
k:=0
end;
x:=x div 10
end;
writeln(kmax)
end.