С клавиатуры задано целое трехзначное число. Определите,есть ли среди цифр задуманного числа одинаковые. кумир
Answers & Comments
misha3411
Усложнённый вариант(всё работает исправно,при вводе больше или меньше 3 чисел выводится сообщение "Это не трёхзначное число!"):var i,a,d:integer; s:string; begin writeln('Введите трёхзначное число '); read(s); d:=length(s); if d<>3 then write('Это не трёхзначное число!'); if d=3 then if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then write('Да') else write('Нет'); end. Простой вариант(выводится ошибка если цифр больше или меньше трёх!):var i,a,d:integer; s:string; begin writeln('Введите трёхзначное число '); read(s); if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then write('Да') else write('Нет'); endю
Answers & Comments
i,a,d:integer;
s:string;
begin
writeln('Введите трёхзначное число ');
read(s);
d:=length(s);
if d<>3 then
write('Это не трёхзначное число!');
if d=3 then
if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then
write('Да')
else
write('Нет');
end. Простой вариант(выводится ошибка если цифр больше или меньше трёх!):var
i,a,d:integer;
s:string;
begin
writeln('Введите трёхзначное число ');
read(s);
if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then
write('Да')
else
write('Нет');
endю