2мин=120с, чтобы узнать скорость - надо кол-во символов поделить на время, получается 360/120=2бит/с
Листва, ветки, крона, корни,ствол
Program gt;
var n,k,t:integer;
begin
read(n,k);
t:=0;
while n>=k do
begin
n:=n-k;
t:=t+1;
end;
writeln(t);
end.
Program pr;
var x:integer;y:real;
begin
write('X=');
readln(x);
y:=cos(2*x)+sin(x);
writeln('y=',y);
end.