81920 килобайт
или же 81 мб.
Program zadanie;
Var a,b:integer;
Begin
Writeln('Введите год рождения');
Read(a);
Writeln('Введите текущий год');
Readln(b);
If b>a Then
begin
a:=(b-a)*365;
Writeln('Примерное число прожитых дней=',a);
end
Else If a>b Then Writeln('Не правильно указаны год рождения и текущий год')
Else
begin
a:=a*365;
Writeln('Примерное число прожитых дней=',a);
end;
End.
F(n=5) = F(5-1)*(5+1) = F(4)*6;
F(n=4) = F(4-1)*(4+1) = F(3)*5;
F(n=3) = F(3-1)*(3+1) = F(2)*4;
F(n=2) = F(2-1)*(2+1) = F(1)*3;
F(n=1) = 1 ⇒ F(2) = F(1)*3 = 1*3 = 3
F(3) = F(2)*4 = 3*4 = 12
F(4) = F(3)*5 = 12*5 = 60
F(5) = F(4)*6 = 60*6 = <u><em>360
</em></u>
Const
N = 50;
Var
M:array[1..N] of longint;
i,Max:integer;
Begin
Randomize;
WriteLn('Цены(в рублях): ');
Max:=1;
For i:= 1 to N do
Begin
M[i]:=random(9900001)+100000;
WriteLn(M[i]);
if M[i] > M[Max] then Max:=i;
End;
WriteLn('Max = ',M[Max]);
End.