var
i:integer;
begin
for i:=100 to 999 do
if i div 100*3=i mod 10 then writeln(i);
end.
Похожие записи/страницы:
- Даны натуральные числа n, m. Найти все натуральные числа, меньшие n, квадрат суммы цифр которых равен m -…
- Вводится число, вывести число в котором представлены 1-ая и последняя цифра - Pascal(Паскаль)
- Переставить местами первую и последнюю цифру заданного натурального числа - Pascal(Паскаль)
- Дано натуральное число. Найти сумму цифр этого числа. Верно ли что число начинается и заканчивается одной и той…
- Поменять местами первую последнюю цифры натурального числа N, введенного с клавиатуры. Строки не использовать -…
- Поменять местами первую и последнюю цифру в числе - Pascal(Паскаль)
- Найти произведение цифр заданного четырехзначного числа - Pascal(Паскаль)
- На интервале (1000 .. 9999) найти все простые числа, каждое из которых обладает тем свойством, что сумма первой…