Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
erik09hfilya
17.04.2023 15:34 •
Информатика
Напишите программу, которая находит квадрат произведения цифр введенного числа
Показать ответ
Ответ:
Alevtinka28
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 оценок)
Популярные вопросы: Информатика
СанаевАнтон
04.11.2020 11:58
Племя Мульти пишет письма, пользуясь 22-символьным алфавитом, а племя Пульти – 32-символьным. Вожди племен обменялись письмами. Письмо племени Мульти содержит 120...
ulyanae17
19.03.2023 00:10
Решить упражнение, четко расписать решение(8 класс, Информатика) 1. Напишите наименьшее целое число x, для которого истинно высказывание:НЕ (X 16) И НЕ (X нечётное).2....
Hope4736457456
29.09.2021 15:25
Племя Мульти пишет письма, пользуясь 22-символьным алфавитом, а племя Пульти – 32-символьным. Вожди племен обменялись письмами. Письмо племени Мульти содержит 120...
ddosanov777
06.11.2022 23:33
Совокупность средств и правил взаимодействия человека и компьютера – это… пользовательский интерфейс аппаратно-программный интерфейс аппаратный интерфейс программный...
fjjjfg
09.04.2021 04:30
1. Компьютер — это: a. устройство для обработки аналоговых сигналов. b. устройство для хранения информации любого вида; c. электронное вычислительное устройство для...
МОЗГ1987
19.04.2020 14:55
На рисунке изображён логический диск, разделённый на кластеры. Размер каждого кластера составляет 16 Кбайт. Используемые кластеры - серые, свободные кластеры – белые....
Dennie258
20.04.2021 15:07
Выполнять три задания в зависимости от номера в списке группы в алфавитном порядке. Необходимо сделать задания №m, №m+5, №m+10, m=(n-1)%5+1, где n — номер в списке...
mihail20012
25.06.2021 20:38
П Какие признаки объекта есть у файла?1) у файла есть имя и свойства2) с файлом выполняют действия (копирование, удаление)3) оба утверждения верны4) все перечисленные...
kurtenokalina2
03.03.2023 09:27
Дано натуральное число A(1 =A =100) Даны координаты вершин A отрезков. Требуется написать программу, определяющую количество отрезков, пересекающих ось абсцисс. При...
Tittans101
13.11.2021 06:09
Дан массив, заполненный случайными целыми числами в диапазоне от -30000 до 30000. Напишите подпрограмму, которая определяет минимальное значение среди двузначных...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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