Например при x=-1 y=0
Program gt;
var x,y:real;
begin
readln(x,y);
if(y<=x)and(y>=-x)and(x*x+y*y<=1)then writeln('YES') else
writeln('NO');
end.
Во вложении - рабочая книга MS Excel 2003
N = int(input())
s = 1
for i in range(2, n//2+1):
if n % i == 0: s = s+i
if s == n:
print("Совершенное")
else:
print("Не совершенное")
Пример:
6
<span>Совершенное</span>
Program procenti;
Var Summ:real; k:integer;
begin
writeln('введите процент');
Readln(k);
Summ:=387*(0.2*k);
Writeln('Summ=', summ)
end.