Ответы на вопрос:
// pascalabc.net 3.3, сборка 1573 от 04.11.2017 // внимание! если программа не работает, обновите версию! var answer, a, b, c: integer; begin writeln('введите три значения'); readln(a, b, c); if (a > = 100) and (a < = 999) then inc(answer); if (b > = 100) and (b < = 999) then inc(answer); if (c > = 100) and (c < = 999) then inc(answer); writeln('количество трехзначных чисел равно ', answer); end.
Популярно: Информатика
-
kholdingmedia18.05.2022 10:56
-
leratsvetik11.05.2023 15:40
-
DaiDZ02.07.2022 07:13
-
rinat050101.01.2020 04:58
-
AdamM227.05.2020 11:39
-
Лизок202011.04.2021 18:42
-
боссмалокосоч06.05.2023 05:51
-
Катрин70323.03.2023 08:13
-
12abgh29.08.2020 05:48
-
novakelizaveta731.10.2022 12:30