var
a : integer;
fac : BigInteger := 1;
begin
readln(a);
if a > 0 then for var i := 1 to a do fac *= i;
writeln(a, '!=', fac);
end.
1)Т.к 1 мб=8000000 битов, тогда 8000000*136=1088000000 битов.
2)Т.к 1 тб=1000000000 КБ, тогда 1000000000*2=2000000000 кб.
3),4) немного не поняла, напиши я дорешаю.
5)Дано : | Решение.
V=12 кбит/с. | 1)Переведем 6 минут в сек. :
t=6 мин. | 6*60=360(сек)
_________ | 2)12*360=4320(кб).
S=?
Ответ :4320 килобайт.
Подробнее - на Znanija.com - znanija.com/task/30179393#readmore
N ⵗ 9 <span>ⵗ 3
Где N - число
N </span>ⵗ 9 - число кратно (делится нацело, без остатка) на 9.
N ⵗ 9 <span>ⵗ 3 - число кратно 9 и 3, то есть чтобы оно делилось на 3, достаточно чтобы оно делилось на 9.
</span>
<u /><em></em><em>VAR</em>
<em> n, m, sum, i, j: Integer;</em>
<em> a: Array [1..10000] of Array [1..10000] of Integer;</em>
<em>BEGIN</em>
<em> Read(n, m);</em>
<em></em>
<em> For i := 1 to n do</em>
<em> For j := 1 to m do Read(a[i][j]);</em>
<em></em>
<em> For i := 1 to n do</em>
<em> For j := 1 to m do</em>
<em> If (a[i][j] > 0) then sum := sum + a[i][j];</em>
<em></em>
<em> Write(sum);</em>
<em>END. </em>
<em></em>
<u>Но для экономии времени и сил можно не создавать массив:</u>
<em>VAR</em>
<span><em> n, m, sum, el, i, j: Integer;</em></span>
<em>BEGIN</em>
<span><em> Read(n, m);</em></span>
<em></em>
<span><em> For i := 1 to n do</em></span>
<span><em> For j := 1 to m do begin </em></span>
<span><em> Read(el);</em></span>
<span><em> If (el > 0) then sum := sum + el;</em></span>
<span><em> End;</em></span>
<em></em>
<span><em> Write(sum);</em></span>
<em>END.</em>
A)*
б)/
в)*
г)+
д)*
е)*
/ - разделить * - умножить
