var s: string; ar: array of char; i, c, j: integer; b: boolean; begin b := true; i := 100; while true do begin s := i.ToString; setlength(ar, i.ToString.Length); ar := s.Reverse.ToArray; for j := 1 to i.ToString.Length do if (s[j] = ar[j — 1]) then else b := false; if(b = true) then c := c + 1 else b := true; if (i = 999) then break; i := i + 1; end; write(c); end.
Это можно найти и без компьютера. Трехзначное число-палиндром может начинаться (и заканчиваться) цифрой от 1 до 9 — всего 9 цифр. Каждой первой цифре может соответствовать любая из десяти вторых цифр, итого получаем 9×10 = 90. Тем не менее, приведенная ниже программа решает задачу простым перебором.// PascalABC.NET 3.2, сборка 1341 от 20.11.2016begin Writeln(Range(100,999).Where(x->(x mod 10)=(x div 100)).Count)end.Результат90
Источник: znanija.site
Количество трехзначных чисел, являющихся палиндромами — Turbo Pascal
помогите написать программу Последовательно вводятся исходные данные — натуральные числа. Последовательность оканчивается числом 0. Вывести количество трехзначных чисел, являющихся палиндромами (то есть которые слева направо и справа налево читаются одинаково).
Сумма трех чисел | Решение задачи с leetcode
Код к задаче: «Количество трехзначных чисел, являющихся палиндромами»
Листинг программы
uses crt; var a,k:integer; begin clrscr; writeln(‘Введите последовательность натуральных чисел, окончание 0’); k:=0; repeat readln(a); if(a>99)and(a<1000)and(a mod 10=a div 100) then k:=k+1; until a=0; writeln(‘Количество трехзначных чисел палиндромов=’,k); readln end.
Источник: studassistent.ru
Составьте программу вычисления количества трёхзначных чисел-палиндромов.
Трёхзначные числа-палиндромы имеют вид aba. Присвоим целой переменной x значение 100 — самое маленькое трёхзначное число. x := 100. k := 0 // счётчик, целое число while (x < 1000) < // пока x трёхзначное число if (x div 100 == x mod 10) < // целая часть от деления на 100 — первое //число, остаток от деления на 10 — второе число k++ //увеличиваем счётчик на 1. >x++; // увеличиваем x на один > выводим k
Как добавить хороший ответ?
Что необходимо делать:
- Написать правильный и достоверный ответ;
- Отвечать подробно и ясно, чтобы ответ принес наибольшую пользу;
- Писать грамотно, поскольку ответы без грамматических, орфографических и пунктуационных ошибок лучше воспринимаются.
Что делать не стоит:
- Списывать или копировать что-либо. Высоко ценятся ваши личные, уникальные ответы;
- Писать не по сути. «Я не знаю». «Думай сам». «Это же так просто» — подобные выражения не приносят пользы;
- Писать ответ ПРОПИСНЫМИ БУКВАМИ;
- Материться. Это невежливо и неэтично по отношению к другим пользователям.
Пример вопроса
Программирование на С++. Урок 90. Палиндром
Русский язык
7 минут назад
Какой синоним к слову «Мореплаватель»?
Пожаловаться
Хороший ответ
Вася Иванов
Мореплаватель — имя существительное, употребляется в мужском роде. К нему может быть несколько синонимов.
1. Моряк. Старый моряк смотрел вдаль, думая о предстоящем опасном путешествии;
2. Аргонавт. На аргонавте были старые потертые штаны, а его рубашка пропиталась запахом моря и соли;
3. Мореход. Опытный мореход знал, что на этом месте погибло уже много кораблей, ведь под водой скрывались острые скалы;
4. Морской волк. Старый морской волк был рад, ведь ему предстояло отчалить в долгое плавание.
Источник: uchi.ru