Var
i,s:integer;
begin
s:=0;
for i:=1 to 5 do s:=s+i;
Writeln('for: ',s);
s:=0; i:=1;
while i<=5 do begin
s:=s+i;
i:=i+1
end;
Writeln('while: ',s);
s:=0; i:=1;
repeat
s:=s+i;
i:=i+1
until i>5;
Writeln('repeat: ',s)
end.
<u>Результат</u>
for: 15
while: 15
repeat: 15
10 12 14 16 18 20
Получается шесть
Да
в СИС теме много схем вот одна 546родикалит82-гом
Ответ:
Введи логин и пароль администратора.
Повышения прав требует
<em>// PascalABC.NET 3.2, сборка 1412 от 25.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadSeqIntegerWhile('Вводите, 0- конец:',k->k<>0).ToArray;
Writeln('П=',a.Aggregate(BigInteger(1),(x,y)->x*y))
end.
<u>Пример</u>
Вводите, 0- конец: 61 1 -86 -23 -35 -57 96 -54 -3 -90 -12 -62 3 -47 27 90 85 0
П=7300372606875554895360000