Ответы
Ответ дал:
0
vara,k,s:integer;Begins:=0;for k:=1 to 5 dobeginreadln(a);s:=s+a;end;writeln(s);end.
Ответ дал:
0
var
a,k,s:integer;
Begin
s:=0;
for k:=1 to 5 do
begin
readln(a);
s:=s+a;
end;
writeln(s);
end.
a,k,s:integer;
Begin
s:=0;
for k:=1 to 5 do
begin
readln(a);
s:=s+a;
end;
writeln(s);
end.
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
9 лет назад