1.определить,есть ли среди цифр заданного трехзначного числа одинаковые.2.вычислить...

Question

1.определить,есть ли среди цифр заданного трехзначного числа одинаковые.
2.вычислить стоимость покупки с учетом скидки.Скидка в 10% предоставляется,если сумма покупки больше 1000 руб.

Answer 1

1)uses crt;var  x,a,b,c,i: integer;  begin cls;  write('Введите число: '); readln(x);   a:= x div 100;   b:= (x - a*100) div 10;   c:= (x - a*100 - b*10);   if (a=b) or (a=c) or (b=c) then    writeln('Есть одинаковые цифры')   else    writeln('Одинаковых цифр нет');end.
2)uses crt;var  x: real;  begin cls;  write('Сумма покупки: '); readln(x);   if x>1000 then x:=x-(x*0.1);   writeln('Стоимость с учётом возможной скидки ',x);end.