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