Question

Нужна помощь по программированию!!!!!

Answer 1

Ответ:

1. 60

2. 65

3.

var i,a,s:Integer;

begin

for i:=1 to 10 do

begin

ReadLn(a);

if a<0 then s:=s+a

end;

Write ('Сумма отрицательных чисел равна ',s)

end.

4.

var i,a,s:Integer;

begin

for i:=1 to 20 do

begin

ReadLn(a);

if (a>0) and (a mod 2 = 0) then s:=s+a

end;

Write ('Сумма положительных чётных чисел равна ',s)

end.

Объяснение:

1.

s=0 n=76

пока s<71 s=s+10 n=n-2

0<71 (да) s=10 n=74

10<71 (да) s=20 n=72

20<71 (да) s=30 n=70

30<71 (да) s=40 n=68

40<71 (да) s=50 n=66

50<71 (да) s=60 n=64

60<71 (да) s=70 n=62

70<71 (да) s=80 n=60

80<71 (нет) s=80 n=60

2.

s=1 k=0

пока k<13 s=s+2*k k=k+4

0<13 (да) s=1 k=4

4<13 (да) s=9 k=8

8<13 (да) s=25 k=12

12<13 (да) s=49 k=16

16<13 (нет) s=49 k=16

s+k=49+16=65