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

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.