Код программы
procedure F(n: integer);
begin
if n > 0 then
begin
writeln('*');
F(n - 1);
F(n div 3)
end
end;
begin
f(6);
end.
вывод
*
*
*
*
*
*
*
*
*
*
*
128000 бит/с = 128000/8 байт/с= 16000байт/с ;
500Кбайт=500*1024 байт=512000байт
512000/16000= 32
Ответ. б) 32 с
Var a,x,b:integer;y:real;
begin
writeln('a,b,x');
readln(a,b,x);
if x>=100 then y:=2*a*sqr(x)+b*sqrt(x) else y:=a*sqrt(x)+100-b*x;
writeln(y:5:2);
<span>end.</span>