Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Ulyana2006mizik5B
26.08.2022 13:00 •
Информатика
Составьте программу, выводящую на экран все четырехзначные числа, сумма цифр которых меньше 4 паскаль
Показать ответ
Ответ:
Julia13662004
04.10.2020 17:12
Var s:string;
begin
for var i:=1000 to 9999 do
begin
s:=i.ToString;
if((strtoint(s[1])+strtoint(s[2])+strtoint(s[3])+strtoint(s[4]))<4)then write(i,' ');
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
RafSW
29.03.2022 22:44
Информатика с Паскалем!...
Жасмин787
24.09.2021 19:29
Перший раз у житті я побачив слона у зоопарку коли мені було 4 років.ця тварина дуже велика,слони живуть у індії.там люди використовують слонів для переноски дерев та інших речей.мені...
lada48
24.09.2021 19:29
Теплоход отправился вниз по течению реки от пристани а и причалил к пристани в . после получасовой стоянки теплоход отправился обратно и через 8 ч. после отплытия из а вернулся...
Banannaa
24.09.2021 19:29
.(Чи достатьньо для фарбування підлоги завдовшки 9 м.і завширшки 6 м. 5-ох банок фарби, по 3 кг. в кожній, якщо на 1 м. кв.іде 250 г. фарби?)....
verbenalaym
24.09.2021 19:29
.(Катер от одной пристани до другой 240 км и вернулся обратно. найдите среднюю скорость катера на всём пути, если его собственная скорость 18км/ч, а скорость течения 2км/ч)....
ilonasusak77
24.09.2021 19:29
Стрелок 5 раз стреляет по мишени. вероятность попадания в мишень равна 0,6. найти вероятность того, что в мишень попало не более 2х пуль. в ответе дать целую часть от произведения...
milashka44
24.09.2021 19:29
.(Найдите лишнее слово в каждой строке и обьясните почему вы так решили: 1)адвокат, натариус, судья, прокурор 2)подстрекатель, преступник, свидетель, соучастник 3)патрульно-постовая...
flimas
24.09.2021 19:29
При взаимодействии цинка с серной кислотой выделилось 11,2 л водорода. вычислите массу цинка вступившего в реакцию...
gulzanairgalievi
24.09.2021 19:29
.(Влетнем лагере орленок отдыхало на 120 детей больше, чем в лагере следопыт .по окончании смены для отправки детей в грод лагерю орленок потребовалось19 автобусов, а лагерю...
wehter83
24.09.2021 19:29
Найдите расстояние между центрами двух окружностей в случае внешнего касания, если их радиус равен 31 см и 52 см плз решите , мне седня оч нада...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
for var i:=1000 to 9999 do
begin
s:=i.ToString;
if((strtoint(s[1])+strtoint(s[2])+strtoint(s[3])+strtoint(s[4]))<4)then write(i,' ');
end;
end.