<span>Var x,y: real;
Begin
readln (x,y);
if (x>=0)and(x*x+y*y>=3*3)and(x*x+y*y<=5*5)
then writeln('YES')
else writeln('NO')
End<span>.
Пример:
4 1
YES</span></span>
ЭВМ- электронная вычислительная машина, связана , что информатика- урок только для компьютер и разной техники!
2) Сейчас есть микро ЭВМ (Ноутбуки...) они используются для работы, для дома, для школы...
3)<span> В1946 в США </span>была создана первая электронная вычислительная машина<span> (</span>ЭВМ<span>) - ENIAC (Electronic Numerical integrator and Computer - </span>Электронный<span> числовой интегратор и </span>компьютер<span>).</span>
<span>read - оставляет курсор после прочтения на этой же строке</span>
<span><span>readln - переводит курсор на следующую строку</span></span>
Если весь путь 61км, а по пути озеро пересекал шириной в 5 км, получается вся остальная дорога - суша. 61-5=56 км по суше.
S=vt. 56км=70км/ч*t. t=56/70=8/10=0,8часов=0,8*60минут=48 минут. (по суше ехал).
5 км по воде он проплывет за t=S/v. так как скорость по воде 10 км/ч(v), а путь 5 км(S), 5км делим на 10км/ч = 5/10=0,5 часов=0,5*60минут=30 минут.
Всего ему понадобится 48+30= 78 минутам.
<span>var a,b,h,x,s:real; n:integer;
begin
a:=pi/3; b:=pi/2; n:=60;
h:=(b-a)/n;
s:=0;
x:=a+h/2;
repeat
s:=s+(sin(x)+cos(2*x))/(2+cos(x));
x:=x+h;
until x>b-h/4;
s:=s*h;
writeln(x);
end<span>.
Результат:
</span><span> 1.575159649924877e+00</span></span>