составте программу вычесления количества трёхзначных чисел-палиндомов (чисел, которые читаются одинаково слева на право и с права на лево).
5-9 класс
|
YulyaN96
24 марта 2017 г., 6:15:02 (7 лет назад)
Крош2014
24 марта 2017 г., 7:28:16 (7 лет назад)
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.
Ответить
Другие вопросы из категории
Сообщение занимает 3 страницы по 40 строк и содержит 7200 байт информации. Сколько символов в строке, если при составлении этого сообщения использовали
64-символьный алфавит
Написать оператор присваивания, в результате которого логическая переменная t получает значение false, если выполняется указанное условие: а) х-
положительное число б) хотя бы одно из чисел x,y,z равно нулю в) числа x,y,z равны между собой г)уравнение ax^2+bx+c=0 имеет ровно один корень
Читайте также
1.Составьте программу, выводящую на экран все двухзначные числа, у которых сумма цифр равна 8.
2.Составьте программу вычисления количества трёхзначных чисел палиндромов ( чисел, которые читаются одинаково слева направо и справа налево).
3.Найти двухзначные числа, которые делятся на сумму своих цифр
4.Составьте программу вывода количества трёхзначных чисел, у которых цифры упорядочены строго по убыванию.
РЕБЯТА СРОЧНО!!!!!!!!!!!
Вы находитесь на странице вопроса "составте программу вычесления количества трёхзначных чисел-палиндомов (чисел, которые читаются одинаково слева на право и с права на лево).", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.