Var X: array [1..20] of integer;
i, sum : integer;
<span>BEGIN
</span>for i:=1 to 25 do
read(X[i]);
sum:=0;
i:=1;
while X[i]<>0 do begin
sum:=sum+X[i];
i:=i+1;
<span>end;
</span>writeln('Первый нулевой элемент ', i);
<span>writeln('Сумма элементов до нулевого ', sum);
</span>END.
Например, можно расставить следующим образом
(1+2+3+4):5+6-7=1
// PascalABC.NET 3.0, сборка 1076
begin
var s:='SCHOOL555INFORM';
Writeln('Пароль: ',s.Distinct.Take(6).JoinIntoString(''))
end.
<em><u>Результат выполнения программы:</u></em>
Пароль: SCHOL5
var a,a1,a2,a3 : integer;
begin
readln(a);
a1:=a div 100;
a2:=(a mod 100) div 10;
a3:=(a mod 100) mod 10;
writeln(a1+a2+a3);
end.
а - само число, а1-число сотен, а2-число десятков, а3-число единиц
Во вложении - рабочая книга MS Excel 2003 с двумя листами. На каждом - по задаче. Коды находятся в соответствующих листах.