Найти все трехзначные числа кратные 11-ти и посчитать их количество - PascalABC.NET

Формулировка задачи:

я нашла числа кратные 11-ти,но как посчитать их количество?

                    Листинг программы
                
 
                        
                          
                    
Program chisla11;
var i,k:integer;
begin
k:=0;
for i:=100 to 999 do
begin
if i mod 11=0 then 
writeln(i)
end;
k:=k+1;
end.

Решение задачи: «Найти все трехзначные числа кратные 11-ти и посчитать их количество»

Листинг программы

program chisla11;
 
var
  i, k: integer;
 
begin
  k := 0;
  for i := 100 to 999 do
  begin
    if i mod 11 = 0 then 
    begin
      writeln(i);
      k := k + 1;
    end;
  end;
  writeln('Количество = ', k)
end.

Объяснение кода листинга программы

Создается переменная k типа integer и инициализируется значением 0.
Задается диапазон чисел для перебора от 100 до 999 с помощью цикла for.
В каждой итерации цикла проверяется условие i mod 11 = 0, которое проверяет, делится ли число i без остатка на 11.
Если условие выполняется, то число i выводится на экран, а значение переменной k увеличивается на 1.
После завершения цикла выводится сообщение с количеством найденных чисел.

Оцени полезность:

5 голосов , оценка 3.8 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы