Напишите программу, которая определяет, верно ли, что введённое число содержит две одинаковые цифры, стоящие рядом (как, например, 221) желательно программу на паскале

Fltkbyf2017 Fltkbyf2017    2   26.08.2019 08:20    0

Ответы
Lola664 Lola664  05.10.2020 20:37
Program n1;
var a,temp: integer;
b: boolean;
begin
readln(a);
temp:=-a;
b:=false;
while a<>0 do
begin
if temp=(a mod 10) then begin
b:=true;
break;
end;
temp:= a mod 10;
a:=a div 10;
end;
if b then write('верно') else write('неверно');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика