Дано трехзначное число. написать программу, которая определяет верно ли, что все его цифры различные

hggggg666 hggggg666    1   20.03.2019 15:20    1

Ответы
12345Serik 12345Serik  26.05.2020 08:24

Попробуй. 

 

 

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.

 

 

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика