Question

1.Составьте программу, выводящую на экран все двухзначные числа, у которых сумма цифр равна 8.
2.Составьте программу вычисления количества трёхзначных чисел палиндромов ( чисел, которые читаются одинаково слева направо и справа налево).
3.Найти двухзначные числа, которые делятся на сумму своих цифр
4.Составьте программу вывода количества трёхзначных чисел, у которых цифры упорядочены строго по убыванию.
РЕБЯТА СРОЧНО!!!!!!!!!!!

Answer 1

1)
program gt;
var i,j:integer;
begin
for i:=1 to 9 do
for j:=0 to 9 do
if(i+j=8)then writeln(i,j);
end.
2)
program gt2;
var a,b,c,t:integer;
begin
t:=0;
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if(a=c)then t:=t+1;
writeln(t);
end.