Найти сколько звездочек будет в результате вызова f(5) , а то я запуталась совсем procedure f (n: integer); begin if n> 1 then begin f(n div 2) ; f(n-1) end; write ('*') end;

5) program gt5; var n,k: integer; begin k: =0; while n> 0 do begin n: =n div 10; k: =k+1; end; writeln(k); end. 3) program gt3; var s,i: integer; begin s: =0; for i: =1 to 100 do begin if(i mod 2=0)then s: =s+i; end; writeln(s); end. 2) program gt2; var k,i: integer; begin k: =0; for i: =11 to 20 do begin if(i mod 2=1)then k: =k+1; end; writeln(k); end. 1) program gt1; var  x,y: real; begin x: =-3.1; while x< 1 do begin x: =x+0.1; y: = 4*x*x*x-2*x*x+5; writeln(y); end; end.про 4 я не  понял поэтому не  смог решит

begin   //начало программы

var nk, nt, ck ,ct, s: integer   // переменных типа действительные числа;

writeln('введите количество карандашей'); //вывести на экран надпись

readln(nk);   // запись ответа пользователя в переменную nk

writeln('введите количество тетрадей'); //вывод на экран надписи

readln(nt); // запись ответа пользователя

writeln('введите стоимость 1 карандаша');   // вывод на экран надписи

readln(ck); // запись ответа пользователя в переменную

writeln('введите стоимость 1 тетради');

readln(ct);

s: =(nk*ck)+(nt*ct); // вычисление стоимости покупки

writeln('стоимость покупки: ',s);   // вывод стоимости покупки на экран

end.   // конец программы

(ck-стоимость 1 карандаша, ct-стоимость 1 тетради, s-стоимость покупки)

(nk-количество карандашей, nt-количество тетрадей)