ввести целое число и определить верно ли что в его записи есть две одинаковые цифры стоящие рядом. написать программу в Паскале без массивов
10-11 класс
|
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|.
Буду очень благодарен.
Читайте также
число и определить, какие цифры встречаются несколько раз (через repeat и until)///
ввести целое число и найти сумму его цифр (через while)
ввести целое число и определить , верно ли, что в его записи есть две одинаковые цифры(через while)
всё через паскаль абс
234 равна 10. Задача: сумма цифр ввести целое число и определить верно ли, что в его записи есть 2 одинаковые цифры. Пример: введите целое число 1234 нет введите целое число 1224 да
6.
2)Ввести целое число и определить количество черных и нечетных цифр.
Пример:
Введите целое число :12547
количество нечетных цифр:3
количество четных цифр:2
ввести натуральное число и определить, верно ли, что сумма цифр равна 10
определить, верно ли, что данное число кратно 3.