Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Андрей0126
29.04.2021 13:50 •
Информатика
Дано целое натуральное число. определить является ли произведение всех его цифр двузначным числом через while или until паскаль
Показать ответ
Ответ:
ivan58888siko
26.06.2020 07:30
uses crt;
var x:string;
i,mult,len:integer;
begin
mult:=1;
read(x);
i:=1;
len:=length(x);
while i<=len do
begin
mult:=mult*strtoint(x[i]);
i:=i+1;
end;
if length(inttostr(mult))=2 then
writeln('Yes')
else
writeln('No');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
NJR228337
02.04.2020 12:19
Для хранения растрового изображения размером 256x256 пикселей отвели 8 кб памяти.каково максимально возможное число цветов в палитре изображения. 25...
TkAl06
19.01.2020 01:30
Вот мой код, всё работает норм нужна с написание последнего пункта Создать 2 таблицы в Базе Данных Одна будет хранить текстовые данные(1 колонка) Другая числовые(1 колонка) Есть...
Ангелина8281
25.07.2022 01:37
3. Напишите программу, в которой вычисляются сумма, разность, произведение, частное и среднее арифметическое двухцелых чисел, введенных с клавиатуры....
dashakechenkova
23.03.2022 04:24
Какая из функций является логической?round()trunc()abs()odd()...
dived
30.12.2021 05:52
Нужно решить задачу по информатике через паскаль выдаёт ошибку (Program1.pas(6) : Встречено readln , а ожидалось ; ) что я делаю не так program pr2; uses CRT; var x,y:real; begin...
rororo5209
10.05.2022 04:11
В велогонках участвовали медвежата Тимка Дружок и Огонёк...
kosmos132
12.10.2020 22:51
Характеристика основных семейств цветковвх....
tyon
17.01.2022 00:04
2. XX ғасырдың 20-30 жылдарындағы қазақ ӛнерінің жаңа белеске кӛтерілуі неден байқадыңыз? * 1949 жылы М. Әуезовке КСРО Мемлекеттік сыйлығы берілді. 1949ж Қ.Абайға Ксро мемлекеттік...
rhoyel0
18.09.2021 07:44
Составь математическую модель данной ситуации: «В первом букете m роз, а во втором букете — в 2 раза больше, чем в первом. Когда к первому букету добавили 18 роз, а ко второму...
licach12
04.06.2022 12:28
За три часа туристы 15 км, при этом во второй час в 1 2/3 раза больше, чем в первый час, а в третий час - на 2 км больше второго. Сколько км туристы в каждый час?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var x:string;
i,mult,len:integer;
begin
mult:=1;
read(x);
i:=1;
len:=length(x);
while i<=len do
begin
mult:=mult*strtoint(x[i]);
i:=i+1;
end;
if length(inttostr(mult))=2 then
writeln('Yes')
else
writeln('No');
end.