Const
A = 10;
d = 2;
Var k : integer;
Function Detali(dd,kk : Integer) : Integer;
Begin
If kk>0 then Detali:=dd+Detali(dd+d,kk-1) else Detali:=0;
end;
Begin
Readln(k);
Writeln(Detali(A,k));
end.
Program one;
uses crt;
var
x,y:real;
begin
textcolor(11);
writeln('Введите число x: ');
readln(x);
if x<=0 then y:=0 else writeln(y:3:0);
end.
Предшествующие число числу 10010 =10009
...............................
600*1024 = 614 400 КБ
614 400/500 = 1 228 Файлов
1 228*6 = 7 368 Секунд
Ответ: 7 368 секунд или 122 часа