Var S, N: integer;
begin
read(n);
S := 0;
while n <> 0 do
begin
S := S + n;
read (n);
end;
write(S);
<span>end.
Считает сумму n.</span>
Все это относится к информатическим технологиям.
Я могу только проговорить
взять лукошко
сорвать ягодку
опустить ягодку в лукошко
и это все повторяется несколько раз
если правильно можеш списывать как схему
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var c:=ArrRandom(ReadInteger('n='),-50,50); c.Println;
var imax:=c.IndexMax;
c:=c?[:imax]+c?[imax+1:]; c.Println
end.
<u>Пример</u>
n= 15
-5 -23 44 41 23 29 -36 -13 -45 -36 -37 33 -34 -18 33
-5 -23 41 23 29 -36 -13 -45 -36 -37 33 -34 -18 33