Ответы
Ответ дал:
0
var i,b,c:integer;
begin
for i:=1 to 10 do begin
readln(b);
if (b>10) and (b<15) then c:=c+b;
end;
writeln(c);
end.
begin
for i:=1 to 10 do begin
readln(b);
if (b>10) and (b<15) then c:=c+b;
end;
writeln(c);
end.
Ответ дал:
0
Писал же уже, или что-то неустраивает?
Ответ дал:
0
Может через массивы?
Ответ дал:
0
ИЛи что
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
10 лет назад