<span> "бот" =8,"вол"=9 "болт"=11,"лото"=12</span>
Имеет расширение zip файла
===== PascalABC.NET =====
begin
Range(1582, 3000)
.Where(y -> (y mod 100 = 0) and (y mod 400 <> 0))
.Print
end.
Объем шара<span> равен четырем третим от его радиуса в кубе помноженого на число пи. где V - </span>объем шара, R - радиусшара<span>, π = 3.141592.
А поточнее V=4/3 (дроб) </span>πR3(в кубе)
Program gt;
var a:array[1..10]of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(21)-65;
if(i mod 2=0)then write(a[i],' ');
end;
end.