Var
i : integer;
count : real;
begin
count := 370000;
for i := 2014 to 2030 do
begin
writeln('Год ', i, ': ', Round(count));
count := count + count * 3 / 100;
end;
<span>end. </span>
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(50, -50, 49);
a.Println.Where(t -> t.InRange(-5, 5)).Println(', ').Count.Println
end.
Алгоритм считается более рациональным, потому что он использует вычисление значения полинома по схеме Горнера, позволяющей минимизировать число умножений и отказаться от операции возведения в степень. Во многих языках программирования операция возведения в степень отсутствует и ее реализуют либо отдельным алгоритмом, либо через основное логарифмическое тождество
1.Объем,зеркально,клеточка.
2.Объем отражение.
Саму прогу засунунул в файл (тут пробелы иначе убираются), превью в картинке