program z4; uses crt; var a:array[1..25] of shortint; i:byte; s:longint; begin clrscr; randomize; for i:=1 to 25 do begin a[i]:=random(10--10+1)+-10; write(a[i]:4); if a[i]<0 then s:=s+a[i]*a[i]*a[i]; end; writeln; write('‘Сумма кубов отрицательных чисел равна ',s); readkey end.
Последовательности длиной 7, содержащей 5 букв А могут быть следующими: ** (* - любой из символов В или С) *А* ААА*АА* АА*ААА* А** ** (пока 6 вариантов) Далее - аналогично: **А ААА*А*А АА*АА*А А*ААА*А **А (ещё 5 вариантов) ААА**АА АА*А*АА А*АА*АА *ААА*АА (ещё 4 варианта) АА**ААА А*А*ААА *АА*ААА (ещё 3 варианта) А** *А* (ещё 2) ** (ещё 1) Итого: 6+5+4+3+2+1=21 Так как на месте * могут быть любые из 2 символов В или С, то это даст ещё по 4 варианта для каждого случая. Можно здесь, конечно, комбинаторику вспомнить. Итого: 21*4 = 84
Вычислительная техника является важнейшим компонентом процесса вычислений и обработки данных. первыми приспособлениями для вычислений были, вероятно, всем известные счётные палочки, которые и сегодня используются в начальных классах многих школ для обучения счёту. развиваясь, эти приспособления становились более сложными, например, такими как финикийские глиняные фигурки, также предназначаемые для наглядного представления количества считаемых предметов. такими приспособлениями, похоже, пользовались торговцы и счетоводы того времени.
program z4;
uses crt;
var a:array[1..25] of shortint;
i:byte;
s:longint;
begin
clrscr;
randomize;
for i:=1 to 25 do begin
a[i]:=random(10--10+1)+-10;
write(a[i]:4);
if a[i]<0 then
s:=s+a[i]*a[i]*a[i];
end;
writeln;
write('‘Сумма кубов отрицательных чисел равна ',s);
readkey
end.