Program v2; var n: integer; function p (k: integer): integer%3b begin if k=1 then p: =2 else p: =p (k-1) + (5*k-1); end; begin readin (n); writeln (p(n)); end. а) перечислите все локальные и переменные в программе. б) содержит ли программа рекурсивную подпрограмму? (да/нет). в) укажите формальные параметры в программе г) чему будет равно значение функций при а)n%3d4 b) n36 с)n%3d8

269

278

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

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

427v2

Информатика

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

Program summa; var a,x: integer; i,s: integer; begin writeln('введите целое число'); readln( a ); x: =a; s: =0; while ( x< > 0 ) do begin s : = s + (x mod 10); x : = x div 10; end; writeln( 'сумма цифр числа ',a,' = ', s ); end.