Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
sergey1234567890f
17.01.2020 00:23 •
Информатика
Решить ребус на паскале, : a+ab+abc=bcb
Показать ответ
Ответ:
Даня1681
01.10.2020 19:12
Uses crt;
var a,b,c: integer;
begin
for a:=1 to 9 do
for b:=1 to 9 do
for c:=0 to 9 do
if a+10*a+b+100*a+10*b+c=100*b+10*c+b
then writeln(a,' ',b,' ', c);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ShahTV
17.07.2022 14:37
Информатика 8 класс блок-схемы циклических алгоритмов...
minecraftak2015
29.03.2021 02:10
Реферат набраный на компьюторе содержит 32 рисунка,25 стр ,на каждой странице 52 строки ,в каждой строке 68 символов ,каждый символ кодируется 16 бит,каждый рисунок...
volkow2711ovuu5e
16.06.2021 17:06
Сколько томов печатного текста может быть записано на жесткий диск объемом памяти 6 мб, если том содержит 512 страниц, страница содержит 64 символа в строке и 32 строки...
topwkolnik
05.07.2021 02:04
Какой из знаков показывает непечатаемые символа 1.¶ 2.€ 3.§ 4.¿ или его тут нет? ?...
GangsterNigga1
05.04.2023 06:25
Составить программу в паскале. найти p: от 6.7 до 7.8 с шагом 0,4. p-это произведение...
sashazen03
10.02.2020 14:03
Расставь скобки 3 плюс 4 умножить на 5 минус 4 плюс 2 умножить на 3 минус 7 равно 6...
nanakoguttuktnet
24.01.2020 23:41
Два потребителя по 20 ом каждый включили паралельно общее сопротивление равно 1 20 ом 2 40 ом 3 10 ом 4 5 ом надо...
nnhfgg
24.01.2020 23:41
Сколько кислорода в (г. л и моль) потрнбуется для окисления 16 г меди...
kolody71p0aje8
24.01.2020 23:41
Составь и запиши с этими прилагательными словосочетания с подходящими по смыслу существительными. праздный, праздничный - занятие, день; запасной, запасливый - зверёк,...
vagar
24.01.2020 23:41
Справедливы ли слова о том , что более талантливого учёного , чем м.в.ломоносов, в россии 18 века не было?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,b,c: integer;
begin
for a:=1 to 9 do
for b:=1 to 9 do
for c:=0 to 9 do
if a+10*a+b+100*a+10*b+c=100*b+10*c+b
then writeln(a,' ',b,' ', c);
end.