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

Question

Информатика: Составьте алгоритм, который будет определять есть ли среди цифр заданного целого четырехзначного числа одинаковые. Паскаль программирование

Наталья0201 · Accepted Answer

//Вот программа, которая кодирует слова в системах счисления от 2 до 10
//Первый ввод - число, второй - система счисления
//Pascal ABC.NET v3.0

var
a,i,b,r,n,j,bug:integer;
s,se,slo,slof:string;

procedure preob(var a,b,n:integer; var se:string);
begin
repeat
b:=a mod n;
a:=a div n;
str(b,se);
s+=se;
until (a<=n-1);
end;

begin
readln(slo);
readln(n);
for j:=1 to length(slo) do
begin;
a:=ord(slo[j]);
preob(a,b,n,se);
str(a,se);
s+=se;
for i:=1 to length(s) div 2 do
begin;
se:=s[i];
s[i]:=s[length(s)-i+1];
s[length(s)-i+1]:=se[1];
end;
write(s,'-');
slof:=slof+s;
delete(s,1,length(s));
end;
end.

//Слово Программа она кодирует как 11001111-11110000-11101110-11100011-11110000-11100000-11101100-11101100-11100000-

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

MOGZ ответил

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