Var a,i:integer;
m:array[1..10] of integer;
begin
a:=10;
randomize;
for i:=1 to a do
begin
m[i]:=random(21);
end;
for i:=1 to a do
if (m[i]>5) and (m[i]<15) then
writeln(m[i]);
<span>end. </span>
Компьютеры в интернете различают с помощью IP-адреса(<span>Интернет-протокол) который присваивается компьютеру при подключению к интернету.
Документы в интернете различают по их названию и типу файла</span>
var r,h:real;
Begin
read(r,h);
writeln('S=',pi*r*2*h/3);
End.
1.<span>)Все имена существительные изменяются по падежам и числам. Слово "урок" - имя существительное. Следовательно, слово "урок" изменяется по падежам.
</span><span>2)Все ученики, которые учатся в первую смену, приходят в школу в 8 часов. Серёжа учится в первую смену. Когда приходит в школу Серёжа?
</span>Сережа приходит в школу к 8-ми часам.