//PascalABC.NET 3.4.2
begin
var ar := arrrandom(20, 100, 1000);
ar.Println.Take(10).Sum.Println;
ar.TakeLast(10).Sum.Println;
end.
Новый процессор(Например Intel Core i7 )
SSD диски вместо HDD ускоряют работу компьютера в разы.
Изменение персонализации компьютера.
Программы более стабильных версий.
Var
k,fk, k20, count: integer;
function F(x: integer): integer;
begin
if x < 3 then
F := 1
else F := F(x - 1) + F(x - 2);
end;
begin
k20:=F(20);
writeln(k20);
count:=-1; {k=20 мы ж вроде должны вычесть}
for k := 3 to 50 do begin
fk:=F(k);
if fk=k20 then count:=count+1;
write(fk,' ');
end;
writeln(count);
end.
функция работает очень медленно потому что это рикурсия. Функция создает последовательность числ фибоначи которые вообщ то не повторяются потому что последовательность возрастающая. Повторения вообщем возможны изза того что integer это не безконечная последовательность, а кольцо, но дождаться результатов при таким образом построенной функции просто нереально
Сложные
<span>Если выглянет солнце, то станет тепло
</span><span>Изучение логики не трудно и не бесполезно
</span><span>Неверно, что 9 — простое число</span>
простые
<span>Москва – столица России.
Число 37 является простым.
Волга впадает в Каспийское море. </span>
1. самое простое ПЕРЕ и нарисовать ДАЧУ
2. или нарисовать Ч перед А и в конце подписать А и получится перед АчА
<span>3. Х, нарисовать экран и впереди поставить две запятые убирающие ЭК (остается РАН) , Pa(давление) и впереди 4 запятых и получится Х ' '(экран) ' ' ' 'Pa</span>