Среди чисел (введенных пользователем) найдите те, сумма квадратов цифр которых делится на 13 - Pascal ABC

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

Нужно чтобы пользователь ввел ограничение чисел (например от 1 до 50) и программа среди этих чисел, нашла именно те числа, сумма квадратов которых, будет кратна 13 (то есть делилась на 13 без остатка). Помогите пожалуйста, молю.


textual

Код к задаче: «Среди чисел (введенных пользователем) найдите те, сумма квадратов цифр которых делится на 13 - Pascal ABC»

program test;
 
var
  Xmin, Xmax: integer;
  x: integer;
  Sum, temp: integer;
begin
  readln(Xmin, Xmax);
  for x := Xmin to Xmax do
  begin
    temp := abs(x);
    Sum  := 0;
    while temp > 0 do
    begin
      Sum  := Sum + (temp mod 10);
      temp := temp div 10;
    end;
    if Sum mod 13 = 0 then
      writeln(x);
  end;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


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

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

Источник