Pascal...
Найти все трехзначные числа-палиндромы.
Задача с использованием repeat (обязательно)

var i:integer;begini :=100;repeatif (i mod 10 = i div 100) thenprint(i);i:=i+1;until (i>999);end.

Решение, с помощью которого не придется перебирать 800 чисел подряд:var i, j : Integer;begin i := 1; repeat j := 0; repeat writeln(i, j, i); j := j + 1; until j = 9; i := i + 1 until i = 9end.