Есть много разных способов решения этой задачи. Например:
var n:integer; b:boolean; m:set of 0..9;
begin
write('n='); readln(n);
m:=[];
b:=false;
while (n>0) and not b do
if n mod 10 in m then b:=true else begin m:=m+[n mod 10]; n:=n div 10; end;
if b then writeln('В записи введенного числа есть одинаковые цифры')
else writeln('В записи введенного числа нет одинаковых цифр');
end.
Пример:
n=123432
В записи введенного числа есть одинаковые цифры
var
i,m,n: longint;
begin
write('Введите через пробел границы интервала: ');
readln(m,n);
for i:=m to n do
writeln(i,' ',i*i,' ',i*i*i);
end.
Готово..............................................................
Компьютер является системой, т. к. он состоит из устройств связанных между собой. Без перемены окончаний тут <u>никак не получится.</u>
Сделай цикл while пока денег не будет меньше цены товара