tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Правильно записать. у меня проблемы
Правильно записать. у меня проблемы с паскалем( с клавиатуры вводятся два целых числа. сколько раз в их произведении встречается цифра 0
rockmus
2 11.09.2019 15:40
0
Ответы
Anyutahka
07.10.2020 07:47
Var
a, b: integer;
Begin
Readln(a,b);
a:=a*b; b:= 0;
while(a > 0) do begin
if a mod 10 = 0 then b:= b+1;
a:= a div 10;
end;
Writeln(b);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
djugju
30.04.2020 19:16
Кто может записать решение на алгоритмическом языке...
Локи301
23.10.2019 05:33
Дано натуральное число которое является трёхзначным или четырехзначным , если число 3-значное то вычислить разность между 1-ой и последней цифрами, если 4значное,...
homya4okm
23.10.2019 07:30
Рассмотрите схему взаимодействий основных устройств компьютера. определите недостающие устройства....
stas7365w98
23.10.2019 07:24
Валфавите 32 буквы. какой оъем в байтах займет сообщение длиной 160 символов...
vladavlada60
25.08.2019 18:50
Яке слово є антнонімом до псевдоніма? а)геонім; б)агіонім; в)топонім; г)антропонім; д)автонім...
nastyushanaumenko
25.08.2019 18:50
Сделайтесь таблицу по россии 7 класс §14 (северная война) дата название основные события итог...
alinamensikova
25.08.2019 18:50
Длина прямоугольника 24 см, ширина составляет 1/4 его длины. найдите периметру этого пряоугольника...
roversun7
25.08.2019 18:50
Уксусная кислота вступает в реакцию с 1)соляной кислотой 2)гидрооксидом нария 3)азотной кислотой 4)оксидом кальция 5)карбонатом натрия 6)хлоридом меди 2 (нужно 3...
AnastasiaP654
25.08.2019 18:50
Вчём счастье любящего человека с точки зрения писателей-классиков?...
Vitalik1994
25.08.2019 18:50
Абсолютная и относительная истина желательно примеры...
Популярные вопросы
Скак измениться давление идеального газа уменьшение концентрации...
2
При окислении каких веществ кислым раствором kmno4 образуется...
1
Рибята собрали 6 яблаков рома взал 2 яблака а серьгей 3 сколко...
1
The loggerhead seaturtle. сор. ...
1
4-mashq. qavs ichida berilgan sonlarning mosini qo vibyozing.sinfimizda...
3
Легкомысленный поступок. переделать в примыкание...
2
Кто может написать сочинение по праву? , подарю стикеры в вк отписывайтесь...
3
Мне нужно составить рекомендации по адресной контрацепции, что...
1
Построить криволинейная трапеция ограниченная линиями и найти...
2
1)разрешить всё2) быть похожим3) ответить вашему гостюсоставить...
3
a, b: integer;
Begin
Readln(a,b);
a:=a*b; b:= 0;
while(a > 0) do begin
if a mod 10 = 0 then b:= b+1;
a:= a div 10;
end;
Writeln(b);
end.