Pascal... Найти все трехзначные числа-палиндромы. Задача с использованием repeat (обязательно)
Answers & Comments
xerex21
Var i:integer; begin i :=100; repeat if (i mod 10 = i div 100) then print(i); i:=i+1; until (i>999); end.
1 votes Thanks 0
NaaMan
Решение, с помощью которого не придется перебирать 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 = 9 end.
Answers & Comments
begin
i :=100;
repeat
if (i mod 10 = i div 100) then
print(i);
i:=i+1;
until (i>999);
end.
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 = 9
end.