Как написать программу на Pascal ABC, чтобы определить количество трехзначных чисел, которые заканчиваются на 8?
Информатика 7 класс Программирование на Pascal ABC программа на Pascal ABC трёхзначные числа количество чисел заканчивающиеся на 8 информатика 7 класс
Чтобы написать программу на Pascal ABC, которая определяет количество трехзначных чисел, заканчивающихся на 8, нам нужно выполнить несколько шагов. Давайте разберем их по порядку.
Теперь давайте напишем саму программу:
program CountThreeDigitNumbersEndingWith8; var count, i: integer; begin count := 0; { Инициализируем счетчик } for i := 100 to 999 do { Перебираем все трехзначные числа } begin if (i mod 10 = 8) then { Проверяем, заканчивается ли число на 8 } count := count + 1; { Увеличиваем счетчик } end; writeln('Количество трехзначных чисел, заканчивающихся на 8: ', count); end.
В этой программе:
Теперь вы можете запустить эту программу в среде Pascal ABC и увидеть результат!