1*2*2+1=5
((1*2*2+1)*2*2+1+1+1+1+1)*2=50
((1*2*2+1)*2*2+1+1+1+1)*2*2+1+1+1=99
На первой позиции может быть любая из четырёх букв.
На второй позиции может быть любая из трёх оставшихся букв.
На третьей позиции может быть любая из двух оставшихся букв.
Ответ: 4 * 3 * 2 = 24 слова.
Program enot;
VAR p: array [1..7,1..9] of integer;
i,j,s:integer;
begin
s:=0;
for i:= 1 to 7 do
for j:= 1 to 9
do p[i,j]:= random (61)-25;
for i:= 1 to 7 do
begin
for j:= 1 to 9 do
begin
if p[i,j]<0 then s:=s+p[i,j];
write(p[i,j]:5);
end;
writeln();
end;
writeln(s);
<span>end.</span>
Что получится в результате выполнения операций 1-9 смотри в файле result.doc
<span> Цикл - это замечательное изобретение, которое, в сущности, и делает компьютеры такими ценными. Он позволяет многократно повторить любую часть программы. Цикл не может выполняться вечно, он заканчивается по какому-либо условию. Проверка этого условия может производиться в начале каждого повторяющегося шага, в этом случае цикл называется ПОКА. При проверке условия в конце каждого шага цикл называется ДО. Разновидностью цикла ДО является цикл ПЕРЕСЧЕТ.
10.1.Оператор цикла WHILE (цикл ПОКА).
Формат оператора:
WHILE логическое выражение DO;
Оператор будет повторятся пока истинно логическое выражение. Перед каждым повторением оператора значение логического выражения вычисляется заново. Если необходимо повторить несколько операторов, их следует объединить в составной оператор, т.е. заключить в операторные скобки begin ... end. Этот цикл может не выполниться ни разу, если условие при входе в него оказалось ложным. Таким образом, цикл ПОКА содержит условие повторения цикла.
Пример 1. Программа подсчета суммы S первых 1000 членов гармонического ряда 1+1/2+1/3+1/4+...1/N.
</span><span>Program Summa;
Var S:real;
N:integer;
Begin
S:=0;N:=0;
While n<1000 do
Begin
N:=n+1;
S:=s+1/n
End;
Writeln(s);
Readln
End.</span>