Pascal
var
m : integer;
a,b,y : real;
begin
writeln ('menu:');
writeln ('1) y= (a+b)2');
writeln ('2) y= a^2-b^2');
writeln ('3) y= 1/(a+b)')
writeln ('a=');
readln(a);
writeln ('b=');
readln(b);
readln (m);
case m of
1: y := (a+b)*2;
2: y :=sqr(a)-sqr(b);
3: y := 1/(a+b);
end;
writeln ('y=',y:3:2);
end.
4 минуты это 240 секунд. если за 1 сек передается 256000 бит (32000 байт т.е. 1 байт=8 бит) то получится 7680 килобайт за 4 минуты
Это обычная математика, тебе дано скорость и время - надо найти путь
s = V*t = 102400 бит/с * 5с= 512000 бит
теперь переведем в килобайты
8 бит = 1 байт
1024 байта = 1 килобайт
512000 бит / 8 = 64000 байт
64000/1024 = 62,5 кбайт
ответ 62,5 кбайт
Program z;
var a: array [1..10] of integer;
k,i: integer;
begin
k:=0;
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 10 do if a[i] mod 10 = 2 then k:=k+1;
writeln(k);
end.