Какие решает функция? (паскаль) function rec(n: integer); begin if n> 1 then rec(n div 2); write(n mod 2); end;

206

437

Посмотреть ответы 2

Ответы на вопрос:

yuliana080704

Информатика

4,8(88 оценок)

ответ:

если ее исправить, заменив function на procedure, то будет выводить двоичное представление своего аргумента.

jkazlova

Информатика

4,6(91 оценок)

Const sz = 100; // размер массива var a: array [1..sz] of integer; n: integer; // количество элементов в массиве i,k: integer; min,max: real; begin k: =0; n: = 10; for i: =1 to n do begin read(a[i]); k: =k+a[i]; end; write('вывод элементов массива: '); for i: =1 to n do write(a[i],' '); min : = a[1]; for i: =2 to n do if a[i]< min then begin min : = a[i]; end; max : = a[1]; for i: =2 to n do if a[i]> max then begin max : = a[i]; end; writeln('max=',max,' ','min=', min,' ','средная температура=',k/n) end.