Ответ:
Так у Вас там пароль: P7ypbqi6
Но если не сможете решить эту проблему, то позвоните в техническую поддержку Ростелеком.
/<u>/ PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadReal('Введите число:').ToString.ToWords('.');
if a.Length=2 then Writeln(a[0]=a[1])
else Writeln(False);
end.
<u>Примеры</u>
Введите число: 121.121
True
Введите число: 12.11999
False
Программа на С++ ,вроде все верно
Var a,b,c,z:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('c = ');
ReadLn(c);
z:=a;
if z < b then z:=b;
if z < c then z:=c;
WriteLn(z*z);
End.