Ответы
Ответ дал:
0
3) 45
4)
Program z4; Var b,a,i,m:integer; Begin read(b);for i:=1 to b do beginread(a);if a>0 and (a mod 2 = 0 )then m:=m+a; end;writeln(m);End.
4)
Program z4; Var b,a,i,m:integer; Begin read(b);for i:=1 to b do beginread(a);if a>0 and (a mod 2 = 0 )then m:=m+a; end;writeln(m);End.
Ответ дал:
0
сейчас будет на 4 вопрос) подожди)
Ответ дал:
0
дописал
Вас заинтересует
2 года назад
7 лет назад