R(sqr(c)+c, d) - по тому что ты в начале указал что счетчик процедуры будет интеджером, а если вывести из коренья то может получится и дробное число...
И вот это проходят в 1-4 классах, ну нифига себе.
Используем формулу V = v*t (V - объем передаваемой информации, v скорость передачи, t - время передачи).
1. V = v1*t1, V = v2*t2, t2 = v1*t1/v2
t2 = 256*40/1024 = 10 c
2. V1 = v*t1, V2 = v*t2, V2 = V1 / t1 * t2
V2 = 600 / 30 * 50 = 1000 Кбайт
<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>
Этот значок обозначает возведение в степень