begin if ReadInteger('Введите число:').ToString.GroupBy(t->t). Select(t->(t.Key,t.Count)).Any(t->t[1]>1) then Writeln('Число содержит по крайней мере две одинаковые цифры') else Writeln('Введенное число не содержит одинаковых цифр') end.
Примеры Введите число: 12345670 Введенное число не содержит одинаковых цифр
Введите число: 1320624 Число содержит по крайней мере две одинаковые цифры
Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadReal('Введите число:');
var k:=ReadInteger('Введите величину сдвига десятичной точки:');
a:=a*10**k;
a.Println
end.
Примеры
Введите число: 12345.09876
Введите величину сдвига десятичной точки: -3
12.34509876
Введите число: 345.09876
Введите величину сдвига десятичной точки: 4
3450987.6
Введите число: 12345.09876
Введите величину сдвига десятичной точки: 8
1234509876000
Введите число: 12345.09876
Введите величину сдвига десятичной точки: 15
1.234509876E+19
Введите число: 1.23456789e-10
Введите величину сдвига десятичной точки: -25
1.23456789E-35