0 рейтинг
22 видели

Вычислить сумму Z = 1 + 2 + 3 + ... . Вычисления прекратить, когда значение Z превысит заданное значение A.

Решить при помощи:

1.Операторов цикла.(i:=N1 to N2 do "оператор")

2.Цикла с предусловием.(While)

от в разделе Информатика | 22 видели

1 Ответ

0 рейтинг

var

a,i,z1,z2:integer;

begin

read(a);

 

for i:=1 to a do

z1:=z1+i;

while z

for i:=1 to a do

 

 z2:=z2+i;

write(z1,z2);

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

от Начинающий (210 баллов)
10,984,878 заданий
13,471,016 решений
8,518,553 комментариев
4,909,216 пользователей