Как написать программу на 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 и увидеть результат!