Составте программу вычесления количества трёхзначных чисел-палиндомов (чисел, которые читаются одинаково слева на право и с права на лево).
ElDiablo1337
2
01.03.2019 15:20
6
Другие вопросы по теме Информатика
evgeniiantonov
30.04.2020 11:58
mendygulkurman
30.04.2020 11:59
Keklo12
24.02.2020 13:13
терминатор43
24.02.2020 13:10
hellppp1
12.07.2019 13:10
Kukitoria666
12.07.2019 13:10
averdarya
12.07.2019 13:10
vanschool
12.07.2019 13:10
Принцеска96
25.03.2021 20:33
Популярные вопросы
- Розвяжить систему ривняня пидстоновки х+4у=-6, 3х-у=8...
3 - В повісті « Bітька + Галька, або Повість про перше кохання» розгортаються у селі...
3 - Каковы особенности растений, составляющих самый верхний ярус биогиоценоза?...
3 - O центр окружности AB- касательная к окружности угол AOB=60 градусов AO= 10 см Найдите...
1 - Віра в те що використовуючи можливості людського розуму можна поліпшити світ була...
3 - Решить графически уравнение x^2=2х+8...
1 - Між сторонами кута (аb) який дорівнює 60 проходіть промцінь с. Знайдіть кут ас та...
3 - По каким законам бытия должен жить человек?». (По сказке «Маленький принц».)...
1 - Визначте силу тяги автомобіля що рухається рівномірно зі швидкістю 90км/год протягом...
3 - До ть до ть будь ласка даю 30 запитання...
1
program xxx;
var i, k, c, e : integer
begin
k:=0;
for i:=100 to 999 do
begin
c:= i div 100;
e:=i mod 10;
if c = e then k:=k+1
end;
writeln('кол-во палиндромов =', k);
readln
end.