Вычислить сумму 10 чисел введённых с клавиатуры (на паскале). Заранее спасибо.
Ответы на вопрос
Ответил xcommands
0
var i,sum,x:integer;
begin
for i:=1 to 10 do
begin
read(x);
sum:=sum+x;
end;
writeln(sum);
end.
Ответил wraiter
0
uses crt;
var i,sum,x:integer;
begin
clrscr
for i:=1 to 10 do
begin
read(x);
sum:=sum+x;
end;
writeln('сумма ');
end.
Новые вопросы