1 минута - 60 секунд
1000:60*36=600 (кб можно передать за 36 секунд при скорости 1000 кб/мин)
I=1 s=0+1*1=1
i=2 s=1+2*2=5
i=3 s=5+3*3=14
i=4 s=14+4*4=30
i=5 s=30+5*5=55
Ответ: s=55
Var
a: array[1..10] of integer;
i, max, imax: integer;
begin
for i:=1 to 10 do
readln(a[i]);
max := 0;
for i:=1 to 10 do
if (a[i] > max) and (a[i] > 4) and (a[i] < 9) then
begin
max := a[i];
imax := i;
end;
writeln(imax);
end.
<em><u>Pascal:</u></em>
var code:byte;
begin
write ('Code = ');
readln (code);
writeln (chr(pred(code)));
end.
<em><u>C++:</u></em>
#include <iostream>
using namespace std;
int main()
{
int code;
cout <<"Code: ";
cin >>code;
char ch=static_cast<char>(code);
cout <<ch <<endl;
return 0;
<span>}</span>
<span>передачу информации по заданному адресу</span>