Надрукувати всі натуральні двозначні числа, у яких сума квадратів цифр кратна 13.

Змінні:

Вхідні дані:

dv – двохзначне число(ціле)

Вихідні дані:

 dv – двохзначне число(ціле)

Проміжні дані:

• c1 – перша цифра
• c2 – друга цифра
• s – сума квадратів цифр

Алгоритм

1.     Оператор циклу for dv:=10 to 99 do автоматично змінює dv від 10 до 99.

2.     Оператор c1:=dv div 10 обчислює першу цифру

3.     Оператор c2:=dv mod 10 обчислює другу (останню) цифру.

4.     Оператор s:=sqr(c1)+sqr(c2) обчислює суму квадратів цифр.

5.     Оператор if s mod 13=0 then перевіряє цю суму на кратність 13.

6.     Якщо s кратна 13, то число i виводиться на екран оператором write(dv,' ')

 

Програма

Program osoblyvi_chysla;

Uses crt;

Var dv,s,c1,c2:integer;
begin clrscr;
for dv:=10 to 99 do
begin
c1:=dv div 10; c2:=dv mod 10;
s:=sqr(c1)+sqr(c2);
if s mod 13=0 then write (dv,' ');
end;

Readln;
end.

Результат роботи програми

15 18 23 32 46 47 51 64 69 74 79 81 96 97

Варіанти задач

1.     Знайти всі трьохзначні числа, середня цифра яких дорівнює сумі першої та останньої цифр.

2.     Знайти всі трьохзначні числа, в яких є цифра 7 та які кратні 7.

3.     Знайти всі двохзначні числа, які кратні сумі своїх цифр.

4.     Знайти двохзначне число, у якого куб суми його цифр дорівнює квадрату самого числа.

5.     Знайти двохзначні числа, які дорівнюють потроєному добутку своїх цифр.

6.     Знайти всі двохзначні числа, у яких подвоєна сума цифр дорівнює добутку цифр.

7.     Надрукуйте в рядок всі трьохзначні числа, сума цифр яких кратна 20.

8.     Надрукуйте всі цілі числа з інтервалу [200,400] в запису яких є цифра 5.

9.     Надрукуйте всі числа від 100 до 150 у яких всі три цифри різні.

10. Надрукуйте в рядок всі цілі числа з інтервалу [200,500], в яких рівно дві однакові цифри.