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

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

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

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

textual
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


СОХРАНИТЬ ССЫЛКУ
Похожие ответы