Напишите программу, которая определяет, верно ли, что введённое число содержит две одинаковых цифры, стоящие рядом ( как, например 221 )
ЭТО ПАСКАЛЬ
Нужно составить программу с помощью цикла WHILE
Заранее СПАСИБО
Ответы
Ответ дал:
0
PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018
Внимание! Если программа не работает, обновите версию!
begin
var n := Abs(ReadInteger('Введите целое число:'));
var yes := False;
var n1 := n mod 10;
n := n div 10;
while n > 0 do
begin
var n2 := n mod 10;
if n1 = n2 then
begin
yes := True;
break
end;
n := n div 10;
n1 := n2
end;
if yes then Print('Верно')
else Print('Неверно')
end.
А еще это можно решить, к примеру, так:
begin
var s := Abs(ReadInteger('Введите целое число:')).ToString;
if s.Pairwise.Any(t->t[0]=t[1]) then Print('Верно')
else Print('Неверно')
end.
Ответ дал:
0
boolean тоже не проходили
Ответ дал:
0
Ну логический тип переменных.
Ответ дал:
0
Откуда я вообще знать могу, что Вы там проходили?
Ответ дал:
0
У Вас получается, как если бы Вы в сочинении поставили точку с запятой, а Вам кто-то сказал, что точки с запятой вы еще не проходили.
Ответ дал:
0
Вы не просто решение задачи хотите получить, а такое, которое можете сдать, выдав за свое. Мы тут этим не занимаемся.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад