Регистрация
renatadautova
24.10.2020 23:47
Информатика
Есть ответ 👍

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

216
320
Посмотреть ответы 3

Ответы на вопрос:

MrLinar
MrLinar
4,7(64 оценок)
Решение, с которого не придется перебирать 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.
123Dulya
123Dulya
4,4(58 оценок)
Var i: integer; begin i : =100; repeat if (i mod 10 = i div 100) then print(i); i: =i+1; until (i> 999); end.
КЕКАke
КЕКАke
4,6(25 оценок)

48 раз

Объяснение:

Для того, чтобы узнать сколько раз выполняется цикл, нужно вычесть из наибольшего числа в операции наименьшее и прибавить 1

Таким образом: 48-1+1=48

Популярно: Информатика