Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
anastasia200012
26.04.2022 22:31 •
Информатика
Дано целое натуральное число. определить является ли произведение всех его цифр двузначным числом через while или until паскаль
Показать ответ
Ответ:
kakaha7
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 оценок)
Популярные вопросы: Информатика
Настя097343
01.09.2022 21:51
1. Қазақстан баспагерлері .Майндағы Франкфуртта өтетін Халықаралық кітап жәрменкесіне қатысу үшін қазақша хат дайындады. Оны аудармашылар неміс тіліне аударғанда қпарат...
overlordcfg
19.03.2022 09:50
4. Поставити у правильній послідовності етапи створення веб-сайту. ( ) 1) розробка дизайн-макету сторінок сайту2) постановка завдання3) розміщення на сайті додаткових сервісів4)...
andrew211
20.09.2020 17:42
Дана блок-схема. Определите результат вычислений для данного исходного числа N=78....
mario160
13.04.2021 07:49
1. За до створити базу даних «Перевізник» Встановити зв язки між таблицями (не менше двох таблиць). Сформувати звіт, який міститиме інформацію про транспортні засоби. Створити...
lilyaepifanova
01.10.2020 17:31
1) Создать 1 программу в Qbasic. 2) Сохранить текст программы в текстовом редакторе ( Блокнот, Word)3) назвать программу Конь 4) Создать Свой рисунок-программу в Qbasic5)...
AFilchac
07.04.2023 12:54
Напишите код для того, чтобы из мужской фамилии превратить в женскую в консольном режиме на языке python...
nikysa1
17.02.2021 05:17
Ано исходное состояние таблицы. После выполнения команды КОПИРОВАТЬ А5: В5 в А4 : В1 значения клеток А6 и В6 будут равны соответственно: 1. будет выдано сообщение об ошибке...
yhenik2015
03.05.2022 17:18
1. Напиши запрос (база данных MS Access): записи, в которых названия стран заканчиваются на ика . Запрос: 2. Какую строку будет занимать фамилия Медведева после проведения...
adelinkalinka15
18.05.2021 01:01
ответить на вопросы: Назовите правила выполнения арифметических действий. Назовите правило составления арифметических выражений....
leonovapodkina
20.01.2022 20:28
По графику функции составьте блок-схему алгоритма нахождения значений функции:...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.