Ответы
Ответ дал:
0
var
ch,sum,i:longint;
begin
sum:=0;
WriteLn('Вводите числа.');
for i := 1 to 5 do
begin
readln(ch);
inc(sum,ch);
end;
WriteLn('Ответ: ',sum);
end.
ch,sum,i:longint;
begin
sum:=0;
WriteLn('Вводите числа.');
for i := 1 to 5 do
begin
readln(ch);
inc(sum,ch);
end;
WriteLn('Ответ: ',sum);
end.
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
9 лет назад