Максат нарисовал изображения цветов для реферата по биологии. Данные изображения одного цветка требует 10Кб памяти. Размер каждой ячейки ОЗУ равен 10Кб. Осталось свободное место , сможет ли Максат разместить в свободном месте рисунок размером 40000 байт ЭТО СОР​

Const
  s = 2500; {пробег для обкатки}
  n1 = 12;{число дней, потраченное первым подростком}

var
  s0, s2: real;
  n2: integer;

begin
  s0 := 150;
  n2 := 1;
  s2 := s0;
  while s2 < s do
  begin
    s0 := s0 + 20; {ежедневный пробег}
    s2 := s2 + s0;
    n2 := n2 + 1
  end;
  if n2 > n1 then Writeln('2-й подросток завершил обкатку позже на ', n2 - n1, ' дн.') 
  else if n2 = n1 then Writeln('Оба подростка завершили обкатку одновременно')
  else Writeln('2-й подросток завершил обкатку раньше на ', n1 - n2, ' дн.')
end.

Решение:
2-й подросток завершил обкатку раньше на 1 дн.

Var
  x, a, t, y: real;

begin
  Write('Введите значение аргумента x: ');
  Readln(x);
  Write('Введите значение коэффициента a: ');
  Readln(a);
  {боремся с неположительным значением под знаком корня}
  t := a - cos(x);
  if t < 0 then y := exp(x + 1.8) - exp(1 / 5 * ln(-t))
  else if t = 0 then y := exp(x + 1.8)
  else y := exp(x + 1.8) + exp(1 / 5 * ln(t));
  Writeln('Значение функции равно ', y)
end.

Тестовое решение:

Введите значение аргумента x: -4.2
Введите значение коэффициента a: 1.95
Значение функции равно 1.28604638457326