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