Үй тапсырмасыИнтернет желісін пайдалана отырып, 3D графикаға арналған программалартуралы ақпарат іздеңдер. Қандай программалар бар, олардың артықшылықтарынеде? Алынған ақпараттардың ішіндегі маңыздыларын талдап, оны дәптергежазыңдар.​

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Приём ИЗ "...\Отделы\Обмен\", Вывод ИЗ "...\Отделы\Обмен\";

ПЕР
  N, сумма, сч, скор, макс: ЦЕЛ;

УКАЗ
  сумма := 0;
  макс := 0;
  Вывод.Цепь("Введите число автомобилей: ");
  N := Приём.Число();
  ЕСЛИ N < 1 И N > 30 ТО Вывод.Цепь("^Ошибка.") ИНАЧЕ
    Вывод.Цепь("^Введите скорости:^");
    ОТ сч := 1 ДО N ВЫП
      скор := Приём.Число();
      ЕСЛИ N < 1 И N > 300 ТО Вывод.Цепь("^Ошибка."); СТОП(0) КОН;
      УВЕЛИЧИТЬ(сумма, скор);
      ЕСЛИ скор > макс ТО макс := скор КОН;
      Вывод.Цепь(" ")
    КОН
  КОН;
  Вывод.ЧВещ("^Средняя скорость: %.1f.^", сумма / N, 0, 0, 0);
  ЕСЛИ макс >= 60 ТО Вывод.Цепь("YES") ИНАЧЕ Вывод.Цепь("NO") КОН

КОН Задание.

Задача на "сложный процент".
Если первоначальная сумма равна k, то при годовом проценте p ее величина S через год составит k+k*p/100 = k(1+p/100).
Через два года S составит k(1+p/100)+k*(1+p/100)*p/100 = k(1+p/100)(1+p/100) = k(1+p/100)².
Тогда через n лет:


У нас S=2500000, p=4.5, n=33-14=19.

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadReal('Целевая сумма;');
  var p:=ReadReal('Годовой процент, %:');
  var n:=ReadInteger('Количество лет');
  Writeln('Сумма начального вложения составит ',S/(1+p/100)**n:0:2)
end.

Пример
Целевая сумма; 2500000
Годовой процент, %: 4.5
Количество лет 19
Сумма начального вложения составит 1083254.47