Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
BlueSubaru666
23.10.2022 19:29 •
Информатика
Сколько среди чисел таких, что в них три различные цифры идут в порядке возрастания или убывания? напечатайте их. (в паскале)
Показать ответ
Ответ:
ученик1862
06.10.2020 09:07
Var
a,b,c,k:byte;
Begin
k:=0;
For a:= 1 to 9 do
For b:= 0 to 9 do
For c:= 0 to 9 do
if ((a<b)and(b<c))or((a>b)and(b>c)) then
Begin
k:=k+1;
Write(a,b,c,' ')
End;
WriteLn;
WriteLn('k = ',k);
End.
123 124 125 126 127 128 129 134 135 136 137 138 139 145 146 147 148 149 156 157 158 159 167 168 169 178 179 189 210 234 235 236 237 238 239 245 246 247 248 249 256 257 258 259 267 268 269 278 279 289 310 320 321 345 346 347 348 349 356 357 358 359 367 368 369 378 379 389 410 420 421 430 431 432 456 457 458 459 467 468 469 478 479 489 510 520 521 530 531 532 540 541 542 543 567 568 569 578 579 589 610 620 621 630 631 632 640 641 642 643 650 651 652 653 654 678 679 689 710 720 721 730 731 732 740 741 742 743 750 751 752 753 754 760 761 762 763 764 765 789 810 820 821 830 831 832 840 841 842 843 850 851 852 853 854 860 861 862 863 864 865 870 871 872 873 874 875 876 910 920 921 930 931 932 940 941 942 943 950 951 952 953 954 960 961 962 963 964 965 970 971 972 973 974 975 976 980 981 982 983 984 985 986 987
k = 204
0,0
(0 оценок)
Популярные вопросы: Информатика
annasummer12201
05.04.2021 02:37
Написать на паскале четные числа входные данные вводятся целые числа a и b. гарантируется, что a не превосходит b выходные данные выведите (через пробел) все четные...
живууууу
06.12.2022 03:37
Кприкладным программам не относится...
shirowa234567815690
15.04.2022 18:47
Стен газета эргономика по информатике...
Montes776
20.11.2021 00:32
Напиши реферат на тему фрактальная графика опишите историю возникновения этого вида графики затем объясните что такое кривая коха и как она используется для построения...
eeee0rock
13.09.2021 21:51
Информатика ! Очень важно !...
akinfijevsp058du
08.08.2022 11:19
Если не сложно? сор по языку 5 класс за 4 четверть...
BlaBla1aquamarine
04.03.2023 12:49
Напишіть не менше 3 рівняння реакції добування алюміній сульфату...
poliaprokopets
03.12.2020 15:57
Прямая и косвенная речь. переделать предложения из прямой в косвенную речь. желательно написать все 15 предложений, заранее . 1. ann smith: “i am a teacher. i work...
Yan132142
29.12.2021 14:45
Что юфо мог бы ответить на эти вопросы? who are you? why are you sad? who (кого) do you want to find?...
BlackJack11RUS
13.01.2023 10:08
Точка м рівновіддалена від усіх сторін прямокутного трикутника і знаходиться на відстані 4 см від його площини .знайдіть відстань від точки м до сторін трикутника...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a,b,c,k:byte;
Begin
k:=0;
For a:= 1 to 9 do
For b:= 0 to 9 do
For c:= 0 to 9 do
if ((a<b)and(b<c))or((a>b)and(b>c)) then
Begin
k:=k+1;
Write(a,b,c,' ')
End;
WriteLn;
WriteLn('k = ',k);
End.
123 124 125 126 127 128 129 134 135 136 137 138 139 145 146 147 148 149 156 157 158 159 167 168 169 178 179 189 210 234 235 236 237 238 239 245 246 247 248 249 256 257 258 259 267 268 269 278 279 289 310 320 321 345 346 347 348 349 356 357 358 359 367 368 369 378 379 389 410 420 421 430 431 432 456 457 458 459 467 468 469 478 479 489 510 520 521 530 531 532 540 541 542 543 567 568 569 578 579 589 610 620 621 630 631 632 640 641 642 643 650 651 652 653 654 678 679 689 710 720 721 730 731 732 740 741 742 743 750 751 752 753 754 760 761 762 763 764 765 789 810 820 821 830 831 832 840 841 842 843 850 851 852 853 854 860 861 862 863 864 865 870 871 872 873 874 875 876 910 920 921 930 931 932 940 941 942 943 950 951 952 953 954 960 961 962 963 964 965 970 971 972 973 974 975 976 980 981 982 983 984 985 986 987
k = 204