Статистика
Всего в нашей базе более 4 327 657 вопросов и 6 445 963 ответов!

ввести целое число и определить верно ли что в его записи есть две одинаковые цифры стоящие рядом. написать программу в Паскале без массивов

10-11 класс

Stalker251 10 окт. 2016 г., 19:29:27 (7 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
миха11ханов
10 окт. 2016 г., 20:37:16 (7 лет назад)

var   
 i: integer; 
  n: string; 
  b: boolean;
BEGIN 
 writeln('N = ?'); 
  readln(n); 
 b:= false;

   for i:= 1 to length(n)-1 do   
   if n[i] = n[i+1] then         b:= true;   
     write(b); 
 readln
END.

Ответить

Другие вопросы из категории

Всё надо сделать на паскале.

a) x^5 b)x^6 c)x^8 d)x^9 e)x^10
2 задание:
Дан диаметр окружности d. Найти его длину (L=П*d)
3 задание:
Найти длину окружности L и площадь круга S заданного радиуса R: L=2πR, S = πR^2
4 задание:
Даны 2 числа a и b. Найти их среднее арифметическое
5 задание:
Даны 2 неотрицательных числа a и b. Найти их среднее геометрическое (квадратный корень из их произведения)
6 задание:
Найти расстояние между двумя точками с заданными координатами x1 и x2 на числовой оси: |x2 - x1|.
Буду очень благодарен.

Читайте также

4 задачи: ввести натуральное число и определить, верно ли, что сумма цифр равна 10 (через repeat и until)//// ввести натуральное

число и определить, какие цифры встречаются несколько раз (через repeat и until)///

ввести целое число и найти сумму его цифр (через while)

ввести целое число и определить , верно ли, что в его записи есть две одинаковые цифры(через while)

всё через паскаль абс

Всем привет! Помогите пожалуйста по информатике. Задача: ввести целое число и найти сумму его цифр. Пример: введите целое число:1234. Сумма цифр числа 1

234 равна 10. Задача: сумма цифр ввести целое число и определить верно ли, что в его записи есть 2 одинаковые цифры. Пример: введите целое число 1234 нет введите целое число 1224 да

1)Ввести целое число и найти произведение его четных цифр. Пример: Введите целое число: 1234. Произведение четных цифр числа 1234 равно

6.

2)Ввести целое число и определить количество черных и нечетных цифр.

Пример:

Введите целое число :12547

количество нечетных цифр:3

количество четных цифр:2

Срочно!!!!

ввести натуральное число и определить, верно ли, что сумма цифр равна 10



Вы находитесь на странице вопроса "ввести целое число и определить верно ли что в его записи есть две одинаковые цифры стоящие рядом. написать программу в Паскале без массивов", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.