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

Методы решения задачи

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

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

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

1. Обычной вариант
2. Трудный вариант, в нём употребляется функция "length".

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

Обычный вариант

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

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

•  Программа 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 dlt;gt;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.