i:=0;
S:=0;
Readln(n);
While
x Begin i:=i+1; s:=s+i; End; do
Readln(a);
S:=0;
While
a<>0
do
Begin
S:=s+a;
End;
Если не удалось найти и скачать презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:
Email: Нажмите что бы посмотреть