tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составьте программу
Составьте программу вычисления количества трёхзначных чисел-палиндромов(чисел,которые читаются одинаково слева направо и справа налево
tania7po
2 11.09.2019 17:00
0
Ответы
konulrzayevaa2
07.10.2020 07:54
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var ans:integer;
for var i:= 101 to 999 do
if (i div 100) = (i mod 10)then
inc(ans);
Writeln(ans);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
отличникиии
23.05.2020 11:24
У исполнителя Вычислитель две команды, которым присвоены номера: 1- отними 4; 2 — умножь на 3. Первая команда уменьшает число на 4, вторая умножает число на 3. Придумайте...
vadimkvitko20
23.05.2020 11:28
Запиши доменное имя компьютера, зарегистрированного в домене первого уровня образование, в домене второго уровня sales и имеющего собственное имя www.1 23...
di630
23.05.2020 11:27
1. Информационный объѐм статьи, набранной на компьютере, составляет 15 Кбайт. Определите, сколько страниц содержит статья, если известно, что на каждой странице 32 строки,...
alinanazarova20
23.05.2020 11:27
4.Чертѐжнику был дан для исполнения следующий алгоритм: Повтори 3 раз Сместиться на (1, –3) Сместиться на (–4, 1) Сместиться на (1, 1) конец На какую одну команду можно...
ilyaokorokov777
23.05.2020 11:28
Mежду пунктами А, Б, В, Г и Д построены дороги, протяженность которых приведена в таблице: Определите длину кратчайшего пути между пунктами А и Г, учитывая, что передвигаться...
aigerim341
23.05.2020 11:25
1)Приведены за к поисковому серверу. Расположите номера за в порядке возрастания количества страниц, которые найдет поисковый сервер по каждому за Для обозначения логической...
kseniaksu1
15.06.2020 14:15
Написать эссе на тему: «Информатика для меня…» Теоретический материал по теме: Очень велика роль информатики в развитии общества. Сейчас в мире нет ни одной отрасли науки...
ficatucivi
15.06.2020 14:18
Для матрицы n×n, заполненной случайными числами, разделить все элементы каждой строки на значение элемента данной строки, принадлежащего главной диагонали....
shi55
15.06.2020 14:21
Желательно все 11 вопросов >...
nata12377
16.06.2020 14:27
Очень Дана квадратная матрица Y(N*N). Найти с пользовательского метода (без использования стандартных методов) максимальный элемент среди элементов, лежащих на главной...
Популярные вопросы
Взламайте код что тут зашифровано?!...
3
составьте небольшой рассказ 5-6 предложений используя вечные ценности...
1
Термометр на метеомайданчику, що розташований на вершині гори, показую...
3
Расстоянию 48 км на карте соответствует отрезок длиной 3,2 см. Какому...
1
Ауыз су тапшылығы күннен-күнге орын алып бара жатыр деген пікірге келісу-келімпеу...
1
Определи Какими свойствами обладает почва Рассмотри диаграмму определите...
2
Өлеңге қатысты талдауды белгіле. Шындықты іздеу жолында қажырлы, қайратты...
1
8 -тапсырма. Журналисті алыс сапарға сүйрейтін – қандай күш? Кластер-...
1
Бірлесіп орындалатын жұмыстарға қатысты есептер. 2-сабақ 8 күн 7 күн...
3
2 моль водню занимая об єм...
3
// Внимание! Если программа не работает, обновите версию!
begin
var ans:integer;
for var i:= 101 to 999 do
if (i div 100) = (i mod 10)then
inc(ans);
Writeln(ans);
end.