Если число в 8-ричной системе оканчивается на 0, значит в нем целое число восьмерок, то есть оно делится на 8.
Также оно делится и на 6 (поэтому же). Это число 24.
1. Моем котел и топор.
2. Кладем топор в котел.
3. Наливаем воду в котел.
4. Ставим котел на огонь.
5. Помешиваем варево.
6. Пробуем.
7. Солим воду.
8. Пробуем.
9. Кладем крупу.
10.Пробуем.
11.Кладем масло.
12.Пробуем.
13.Едим.
Program picaso; uses crt;var i,n,ls,ld,min,max,temp,k,j,f,aux:integer;<span> a:array[1..10] of integer;</span>begin clrscr; <span> writeln('Vedite dlinu masiva');read(n);</span><span> writeln('Vedite granitu s leva');read(ls);</span><span> writeln('Vedite granitu s prava');read(ld);</span><span> for i:=1 to n do </span><span> begin</span><span> write('A[',i,']=');</span><span> readln(a[i]);</span><span> end;</span><span> min:=a[1];max:=a[1];</span><span> repeat</span><span> f:=1;</span><span> for i:=ls to ld-1 do</span><span> if a[i]<a[i+1] then </span><span> begin </span><span> aux:=a[i]; </span><span> a[i]:=a[i+1]; </span><span> a[i+1]:=aux; </span><span> f:=0; </span> end; until f=1; <span> for i:=ls to ld do</span><span> write(a[i]:3);</span><span> writeln;</span><span> writeln('min: ',a[ls],' max: ',a[ld]);</span><span> aux:=a[ls]; </span><span> a[ls]:=a[ld]; </span><span> a[ld]:=aux; </span><span> for i:=ls to ld do</span><span> write(a[i]:3);</span> end.<span>
</span>
var x,y:real;
begin
readln(x,y);
writeln((x*x+y*y<=1)or(x*x+y*y>=2*2)and(x*x+y*y<=3*3));
end.
Пример:
0.5 0.5
True