Рекурсия - 18 стр.

UptoLike

Составители:

Рубрика:

begin

writeln('Введите последовательность ненулевых ',

'целых чисел, за которыми следует 0');

Print;

writeln

end.

Пример 7 Последовательность положительных вещественных чисел, за

которыми следует 0, вводится с клавиатуры. Используя рекурсивную функцию

без параметров, найти их сумму.

program Rec_7;

function Sum: real;

var x: real;

begin

read(x);

if x=0 then Sum:=0

else Sum:=x+Sum

end;

begin

writeln('Введите последовательность положительных ',

'чисел, за которыми следует 0');

writeln(Sum);

end.