Ответы на вопрос:
Var x: real; begin write('x = '); readln(x); writeln('y = ',sqr(1-x*x-5*x*x*x*x)); end.
// PascalABC.NET 3.6.3
uses School;
begin
if ReadInt64.Digits.Pairwise.Any(p -> p[0] = p[1]) then Print('YES')
else Print('NO')
end.
Популярно: Информатика
-
katrinsweet12.01.2021 10:53
-
дарюша1311.08.2022 06:18
-
geekeuphoria19.07.2020 14:05
-
keshacold69117.07.2022 04:38
-
RonnieHolmes18.02.2020 14:03
-
mjsden8002.09.2021 18:58
-
Vernаrd16.12.2020 08:30
-
MaxZvanie16.02.2020 05:11
-
straikerfba12.02.2021 16:50
-
lyudmila198604p06n4e11.03.2023 07:16