program V_12_11;
function sum:extended;
var num:extended;
begin
writeln ('vvedite chislo');
readln;
if num >=0 then begin
sum:=num+sum;
end;
end;
var res:extended;
s:string;
begin
repeat
writeln ('vvedite neskolko neotricatelnih chisel, zaversaja vvod kagdogo chisla klavishej 'Enter'');
writeln ('dlja zavershenija vvoda vvedite otricatelnoje chislo i nagmite 'Enter'');
res:=sum;
writeln ('summa neotricatelnih chisel sledujushich do otricatelnogo chisla: ');
writeln (res);
writeln ('povtorit - Enter. vihod - luboj simvol + Enter');
readln (s);
until s<>";
end.
рекурсия. |