Pascal ...

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

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

Question

Информатика

Малаха

26 февраля, 22:34

Pascal ...

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

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

+4

Ответы (2)

Знаете ответ?

Куприян · Answer 1

Var i:integer;

begin

i : = 100;

repeat

if (i mod 10 = i div 100) then

print (i) ;

i:=i+1;

until (i>999) ;

end.

Вася · Answer 2

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

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

Pascal ...

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

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