//PascalABC.NET
begin
write('Длина меньшей стороны: ');
var a := ReadlnReal;
writeln('Длина диагонали равна ', sqrt(a*a+ 9*a*a):8:3)
end.
var n,n1,i: integer;
<span>begin
</span><span> write('N = '); readln(n);
</span><span> if n mod 2=0 then i:=2
</span><span> else i:=1;
</span><span> n1:=1;
</span><span> repeat
</span><span> n1:=n1*i;
</span><span> i:=i+2;
</span><span> until i>n;
</span><span> writeln('N1 = ',n1);
</span><span>end.
</span>N = 6N1 = 48
N = 5N1 = 15
<span>
</span>
F=93,75 Кбайт=93,75*1024*8 бит =768 000 бит
H=24 КГц=24 000 Гц
t = 768 000:24 000:8= 4 секунды
Var s,i:integer;
begin
for i:=100 to 999 do
begin
if ((i mod 100 div 10)mod 2=0) and ((i mod 100 div 10)<>0)
then writeln (i);
s:=s+i;
end;
writeln (s,' сумма всех таких чисел');
end.
На каком языке? Turbo Pascal?
<span> FloodFill();</span>
<span><span><span>procedure FloodFill(</span></span><span><span> x: SmallInt;</span></span><span><span> y: SmallInt;</span></span><span><span> Border: Word</span></span><span><span>);</span></span></span>