Найти количество четырехзначных натуральных чисел, делящихся на 23 и на последнюю свою цифру. - Turbo Pascal

  1. Найти количество четырехзначных натуральных чисел, делящихся на 23 и на последнюю свою цифру.


textual

Код к задаче: «Найти количество четырехзначных натуральных чисел, делящихся на 23 и на последнюю свою цифру. - Turbo Pascal»

var
  k, i : integer;
begin
  k := 0;
  for i := 1000 to 9999 do
    if i mod 10 <> 0 then
      if (i mod 23 = 0) and (i mod (i mod 10) = 0) then
      begin
        inc(k);
        write(i:5)
      end;
  writeln;
  writeln('количество таких чисел: ', k);
  readln
end.

СДЕЛАЙТЕ РЕПОСТ

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



Похожие ответы
  1. Два нечетных простых числа, разность между которыми равна 2, называются близнецами. На интервале от 1 до 1000 найти всех близнецов и подсчитать количество пар. Необходимо сделать ,используя только циклы ,а без функций и процедур я хз как(

  1. Создать текстовый файл, в который записать в столбик несколько чисел (<20). Составить программу, которая подсчитывала бы количество чисел в файле, а затем дописывала бы в его конец столько случайных чисел, чтобы всего чисел оказалось 20. Кроме того, программа должна найти минимальное и максимальное число в полученном файле.

  1. дан одномерный массив n целых . подсчитать количество вхождений многозначных чисел в данной последовательности

  1. После символа «:» вставить «*», если количество символов «=» равно 5 строка вводиться пользователем

  1. Программа, не могу понять как сделать Определить количество элементов равных нулю в заданной матрице А размерностью n*n.

  1. Массив А(30) заполнить целыми случайными числами в диапазоне от 5 до 115. Вывести те значения А(I)(I = 2, 3, . . ., 29), которые больше своих соседей, и подсчитать их количество N. Вывести также весь массив А.

  1. Составить програму для решения следующей задачи с помощью оператора (For-to-do). Вычислить количество точек с целочисленными координатами, попадающими в круг радиуса R(R>0) с центром в начале координат. И к нему составить блок схему.

  1. В таблице А(10) есть одинаковые идущие подряд элементы. Подсчитать их количество.

  1. Дана целочисленная последовательность. Определить количество вхождений каждого числа в последовательность.