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

Способы решения задачи

Нужно составить программу, которая будет определять, есть ли среди заданного трёхзначного числа одинаковые.

Для решения этой задачи нам нужна программа Pascal ABC.

Данную задачу можно решить двумя вариантами:

1. Простой вариант
2. Сложный вариант, в нём употребляется функция "length".

Если функция "length" была пройдена вами ранее, то выбирайте второй вариант. Если же нет, то первый.

Простой вариант

Это самый простой вариант, в котором если вы введёте не трёхзначное число, то программа выдаст ошибку: (Цифр более или менее трёх)

 Для решения этой задачи нам потребуется:

•  Программа Pascal ABC.
• Знание языка Pascal

var

 i,a,d:integer;

s:string;

begin

writeln('Enter a three-digit number ');

read(s);

if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then

write('Yes')

else

write('No');

end.

 Усложнённый способ с функцией length

 Данный вариант сложнее первого, так как в нём используется функция "length".

 Для решения этой задачи нам потребуется:

•  Программа Pascal ABC.
• Знание языка Pascal.
• Знание значения функции "length".

var

i,a,d:integer;

s:string;

begin

writeln('Enter a three-digit number ');

read(s);

d:=length(s);

if d<>3 then

write('This is not a three-digit number!');

if d=3 then

if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then

write('Yes')

else

write('No');

end.

В данной программе будет применяться оператор условия "if". var s: string; begin read (s); if (s [1] = s [2]) or (s [1] = s [3]) or (s [2] = s [3]) then writeln ('Среди цифр данного числа есть одинаковые цифры.') else writeln ('Среди цифр данного числа нет одинаковых цифр.'); end.