Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
sasararerap08tbk
17.03.2023 20:39 •
Информатика
Найдите трехзначное число, равное сумме десятков, квадрата цифры сотен и куба цифры единиц, напишите программу
Показать ответ
Ответ:
Bogatuk2005
22.06.2020 19:47
Uses crt;
var i,s,e,d,so:integer;
begin
for i:=100 to 999 do
begin
e:=i mod 10;
d:=(i div 10) mod 10;
so:=i div 100;
s:=d+so*so+e*e*e;
if i=s then writeln(i);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
LIquid0Horse
01.09.2022 13:23
перевести с Pascal в Phyton uses crt; var a,b,c,d,e,f,i,nb,nc:integer; function hod(n,x,y:integer):boolean; begin case n of 1:hod:=((abs(x-e)=1)and(abs(y-f) =1))or((abs(x-e)...
elbrosso
08.04.2022 09:26
B = 1a = b * 2a = a + bprint( a= /a)a=?...
WiBBaki
07.07.2021 08:25
сделать. Створення бази даних в середовищі СУБД Microsoft Office Access. Робота з об’єктами бази даних....
studentsuka
13.03.2021 08:07
Написать программу на языке Питон: Ввести 3 числа с клавиатуры. Вычислить их сумму (+) и произведение (*) и вывести их на экран....
madinatrtyakov
13.11.2021 08:44
Рассчитай объём видеопамяти, необходимой для хранения графического изображения, занимающего весь экран монитора с разрешением 800×600 и палитрой из 65536 цветов....
ЕвгешаК2003
09.01.2020 13:20
Почему не работает псевдоэлемент ::after в коде?...
yakovlev59
03.07.2022 00:46
Вычислите минимальное возможное отрицательное значение для 16- разрядных двоичных чисел НАПИШИ КАК ВЫ ПОЛУЧАЛИ ЧИСЛО...
niavente
10.04.2021 18:21
очень нужно, мне нужны только ответы....
андрей2076
25.09.2022 23:44
PASCAL. Составить программу, которая бы выполняла умножение матриц A и B. Матрицы заполнить случайным образом в диапазоне [-30;90], размерность матрицы A и B вводить...
Ziko88881
11.12.2022 17:24
PASCAL. Дан двухмерный массив размерностью 4х5, заполненный случайным образом в диапазоне [-20;45].Написать программу, которая бы удаляла столбец с нулевым элементом...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i,s,e,d,so:integer;
begin
for i:=100 to 999 do
begin
e:=i mod 10;
d:=(i div 10) mod 10;
so:=i div 100;
s:=d+so*so+e*e*e;
if i=s then writeln(i);
end;
end.