Pascal ...

Найти все трехзначные числа-палиндромы.

Задача с использованием repeat (обязательно)

Question

Информатика

Мила

23 октября, 14:41

Pascal ...

Найти все трехзначные числа-палиндромы.

Задача с использованием repeat (обязательно)

+2

Ответы (2)

Знаете ответ на вопрос?

Адель · Answer 1

Решение, с помощью которого не придется перебирать 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.

Мана · Answer 2

Var i:integer;

begin

i : = 100;

repeat

if (i mod 10 = i div 100) then

print (i) ;

i:=i+1;

until (i>999) ;

end.

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

Pascal ...

Найти все трехзначные числа-палиндромы.

Задача с использованием repeat (обязательно)