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

0 рейтинг

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

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

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

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


в разделе Информатика
Всего ответов: 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.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

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