Составьте программу вычисления количества трехзначные числа - палиндромов (чисел. которые читаются одинаково слева направо и справа на лево )

Sergeeva1703 Sergeeva1703    3   13.06.2019 08:20    0

Ответы
Владаhi Владаhi  10.07.2020 12:57
Program Palindrom3;

var
  i, n, k: integer;

begin
  n := 0;
  for i := 100 to 999 do
    if (i div 100) = (i mod 10) then n := n + 1;
  Writeln('На промежутке [100;999] найдено числе палиндромов- ', n)
end.

Результат решения:

На промежутке [100;999] найдено числе палиндромов- 90
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика