Дан рекурсивный алгоритм: procedure f(n: integer); begin writeln('*'); if n> 0 then begin writeln('*'); f(n-2); f(n div 2); f(n div 2); end end; сколько символов "звездочка" будет напечатано на экране при выполнении вызова f(7)?

20 звезд.можно легко проверить,переделав алгоритм. var s: integer; procedure f(n: integer); begin writeln('*'); if n> 0 then begin writeln('*'); s: =s+1; f(n-2); f(n div 2); f(n div 2); end; end; begin f(7); writeln(s); end.

на паскале:

 

program ostatok; var c: integer; beginwriteln('введите число с.'); readln(c); writeln('остаток от деления ',c,' на 10, возведенный в квадрат, равен ',sqr(c mod 10)); end.

qbasic

? "введите число"

input a

a: 2=b

if b=int(b) then 1 else 2

1 ? "это число четное" : goto 3

2 ? "это число не четное" 

3 end