Задача в pascal'e на симметричные числа.

Сама задача: Найти все симметричные четырехзначные числа. Пример: 7667, 1331.
Я написал программу, но нужно чтобы она посчитала кол-во этих симметричных чисел, помогите дополнить.
Program n1;
var i,j:integer;
begin
for i:=1 to 9 do
for j:=0 to 9 do
writeln(i,j,j,i);
readln;
End.
Помогите пожалуйста.

По дате

По рейтингу

user_47691088

Искусственный Интеллект

10лет

А чего считать? Разве не видно, что их 90?!

the_cat_14

Искусственный Интеллект

10лет

var a, b, s: integer;
begin
s := 0; { количество симметричных чисел }
for a := 1 to 9 do { тысячи }
for b := 0 to 9 do { сотни }
inc(s);
writeln(s)
end.

Источник: Ответ: 90

marlboro_cowboy

Профи

10лет

введи переменную (числовую), например x
до цикла x=0
при прохождении цикла сделай x=x+1
выведи x через writeln

попробуй так

есть ещё команда inc, вроде бы inc(x,1) - т. е. увеличивает x на единицу... это для того, чтобы не задавать x=x+1, хотя получится тоже самое