Решение задач методом перебора

Задача. Вывести на экран все двузначные числа, сумма цифр которых равна 13.

Обозначим двузначное число , где " " и " " - цифры.

program prim;

var a,b:integer;

begin

for a:=1 to 9 do

for b:=0 to 9 do

if a+b=13 then writeln(a*10+b);

end.

Задача. Вывести на экран все трехзначные числа, кратные 17.

Обозначим трехзначное число .

program prim;

var a,b,c:integer;

begin

for a:=1 to 9 do

for b:=0 to 9 do

for c:=0 to 9 do

if a*100+b*10+c mod 17 =0 then

writeln(a*100+b*10+c);

end.

Задача. Вывести на экран все двузначные числа, третья степень которых оканчивается цифрой 4.

program prim;

var a,b:integer;c:longint;

begin

for a:=1 to 9 do

for b:=0 to 9 do begin

c:=exp(3*ln(a*10+b));

if c mod 10 = 4 then writeln(a*10+b);

end;

end.

ЗАДАЧИ

1. Билет называется "счастливым", если в его номере сумма первых трех цифр равна сумме последних трех. Подсчитать число тех "счастливых" билетов, у которых сумма трех цифр равна 13.

2. Расшифровать

3. Найти двузначное и четырехзначное число, если их сумма 2750, а cумма чисел, записанных в обратном порядке теми же цифрами, 888.

4. Расшифровать

5. Четырехзначное число делится на 7 и на 29. После умножения на 19 и деления на 37, получится остаток 5. Найти это число.

6. Число делится на 504 без остатка. Что это за число?

7. Решить уравнение , если x,y - натуральные числа.

8. Квадрат натурального числа (<100), увеличенный на 5, при делении на 161 дает 4 с остатком. Найти это число.

9.Найти трехзначное число, цифры которого образуют арифметическую прогрессию. Если к нему прибавить 990, то получится число, цифры которого образуют геометрическую прогрессию.