На руках некоторая сумма денег, рассчитать стоимость покупки 5 вещей и вычислить уложились ли мы в сумму которая на руках. написать программу надо только на pascal.

ответ:

var

  money , cost , i: integer;

begin

  read(money); // стартовые деньги

  for i : = 1 to 5 do begin

    read(cost); //ввод цены предмета

    money : = money - cost;

  end;

  if(money < 0) then

    write('no')

  else

    write('yes');

end.

объяснение:

var

  n,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.

2.5 кбайт = 2560 -байт = 20480 бит

20480 : 2560  = 8

ответ: 8 минут.

вроде както так..