Var a,b:real;
begin
write('Введите катеты: ');
read(a,b);
writeln;
write('Гипотенуза = ',sqrt(sqr(a)+sqr(b)):0:2);
end.
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a:=ArrRandom(10,10,99); a.Println;
a.Reverse.Println
end.
<u><em>Тестовое решение:</em></u>
39 29 38 59 16 60 41 73 76 52
52 76 73 41 60 16 59 38 29 39
Вам какой язык надо? Пример на python:
#s - данная строка
def check_for_duplicates(s):
return len(s.split()) != len(set(s.split())) # возвращает True, если имеются одинаковые слова