ответ: Вот правильный (не уверен, но большинство ошибок думаю я исправил)
program dex;
uses
ctr;
var ck,ct,summa:real;
k,t:byte ;
begin
writeln('Skolko kupili karandashei??');
readln(t);
writeln('Skolko stoit odin karandash??');
readln(ck);
writeln('Skolko kupili tetradei??') ;
readln(t);
writeln('Skolko stoit odna tetrad??);
readln(ct);
summa:=k+ck+t*ct;
writeln ('summa pokupki = ',summa:6:2 ' rub.');
readln;
end.
я хз почему тут нужен модуль ctr
один из вариантов, преобразовать число в строку и посчитать количество повторяющихся символов
Pascal
var
a, k, i, j: integer;
s:string;
begin
readln(a);
s:=inttostr(a);
for i:=1 to length(s)-1 do begin
k:=0;
for j:=i+1 to length(s) do
if s[i]=s[j] then inc(k);
if k>0 then begin
writeln('В записи есть повторяющиеся символы');
exit;
end;
end;
writeln('В записи нет повторяющихся символов');
end.