Alisa
5 год назад
Напишите программу, которая определяет, верно ли, что введённое число содержит две одинаковые цифры, стоящие рядом (как, например, 221)Желательно программу на Паскале
ОТВЕТЫ
Amanda Miina
Oct 24, 2020
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.
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.
165
