Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
ahahahahahhahah
16.09.2022 04:50 •
Информатика
Напишите программу, которая находит квадрат произведения цифр введенного числа
Показать ответ
Ответ:
ника2569
06.10.2020 09:16
Var a,p:integer;
begin
write('a = ');
readln(a);
a:=abs(a);
p:=1;
while a<>0 do
begin
p:=p*(a mod 10);
a:=a div 10;
end;
p:=p*p;
writeln('p = ',p);
end.
Пример:
a = 273
p = 1764
0,0
(0 оценок)
Популярные вопросы: Информатика
evazorina1
30.09.2022 10:28
Клиент хочет выяснить какие условия вклада в банк выгоднее ему 10.5 годовых с начислением процентов ежемесячно или 12% годовых с начислением процентов каждые полгода.какая функция...
матиматик31
10.07.2020 03:31
Задан массив вещественных чисел от 0 до 20. отрицательные числа заменить их модулями , а положительные округлить до целых....
20Lorans03
10.07.2020 03:31
Cоставить программу в pascal для определения количества простых (или парных) чисел на промежутке от а до b....
kitsova
31.08.2020 02:35
Запишите числа 2004 и 2019 древнегреческими иероглифами...
straer122122
17.11.2020 17:36
Определите количество информации в этих данных укажите еденицы измерения 101 1001010100101010 101001000100011010...
Станислав929
08.08.2021 02:39
A. Парк Женя Мышкин записался в секцию по конструированию. Теперь ему в вторникам и пятницам нужно ходить в дом творчества. От Жениного дома до дома творчества есть два пути: по тропинке...
persik21783086532
12.12.2020 18:01
Что такое электронна таблица Excel?...
malia20092004
19.01.2022 11:05
Составить таблицу истинности для следующих выражений. ...
рух123
12.09.2022 14:26
Сконфигурировать работу таймера по следующим требованиям: Таймер тактируется от внешнего кварцевого генератора Таймер должен считать в 4 раза медленнее тактовой частоты Режим работы...
Тимоха1911
02.05.2022 10:54
решить 3-ю задачу 1 вариант....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('a = ');
readln(a);
a:=abs(a);
p:=1;
while a<>0 do
begin
p:=p*(a mod 10);
a:=a div 10;
end;
p:=p*p;
writeln('p = ',p);
end.
Пример:
a = 273
p = 1764