Попробуй.
program shdhasd; var s:string;beginwriteln('Введите трёхзначное число ');read(s);if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) thenwrite('Не верно!')elsewrite('Верно');end.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Попробуй.
program shdhasd;
var 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.