Могу только это решение дать
var x,y:real;
begin
read(x,y);
if (x*x+y*y>4) and (y0) then writeln ('YES')
else writeln('NO');
end.
Из двоичной в восьмиричную :
00000000 - 00
00000001 - 01
00000010 - 02
00000011 - 03
00000100 - 04
00000101 - 05
00000110 - 06
00000111 - 07
Из восьмиричной в шестнадцатиричную :
00 - 0
01 - 1
02 - 2
03 - 3
04 - 4
05 - 5
06 - 6
07 - 7
10 - 8
11 - 9
12 - A
13 - B
14 - C
15 - D
16 - E
17 - F
В двоичной 11111010100
ну если обратно то получится 2004
это ведь логично или тебе решение нужно.
Тебе на каком языке программирования писать? Могу сказать принцип.
Вводишь конструкцию, которая проверяет, кратно ли число 7. Если да, то счетчик к увеличивай на 1, а к сумме(которая изначально равна нулю) прибавляй это число.
На с++ выглядит так:
if(chislo%7==0){
k++;
sum=sum+chislo}
Var a,n,k: integer;
begin
write('vvedite chislo ');
readln(n);
if (n=1) or (n=0) then write( n, ' ne sostavnoe i ne ');
a:=2;
while a<=n div 2 do
begin
if n mod a=0 then k:=k+1;
a:=a+1;
end;
if k=0 then write('prostoe')
else writeln('sostovnoe');
<span>end.
P.S. Благодарность не помешает.</span>