Question

Вывести кол во чисел кратных 11 и заканчивающиеся 3. На паскаль ​

Answer 1

Ответ:

program CountNumbers;

var

i, count: integer;

begin

count := 0;

for i := 1 to 100 do

begin

if (i mod 11 = 0) and (i mod 10 = 3) then

count := count + 1;

end;

writeln('Количество чисел, кратных 11 и заканчивающихся на 3: ', count);

end.

Объяснение:

Ну как то так

Answer 2

Вот пример кода на языке Pascal (Delphi), который выводит количество чисел, кратных 11 и заканчивающихся на 3:

pascalCopy code
program CountNumbers;

var
  count: Integer; // переменная для подсчета количества чисел
  num: Integer; // переменная для перебора чисел

begin
  count := 0;

  // перебираем все числа от 1 до 100 (можно изменить диапазон по своему усмотрению)
  for num := 1 to 100 do
  begin
    if (num mod 11 = 0) and (num mod 10 = 3) then
      Inc(count);
  end;

  writeln('Количество чисел, кратных 11 и заканчивающихся на 3: ', count);

  readln;
end.

В данном примере кода мы использовали цикл for, чтобы перебрать все числа в заданном диапазоне (от 1 до 100). Затем мы проверяем условие (num mod 11 = 0) and (num mod 10 = 3), которое означает, что число должно быть кратным 11 и заканчиваться на 3. Если условие выполняется, мы увеличиваем счетчик count на 1.

В конце программы мы выводим количество найденных чисел, соответствующих заданным условиям.