Решаем задачи Абрамян на Паскале. Series1

Series1. Даны десять вещественных чисел. Найти их сумму.

Решение:

program Series1;
var
  R,Rez:Real;
  i:Integer;
begin
  Rez:=0;
  for i:=1 to 10 do
   begin
     Write('Введите ',i,' число: ');
     Readln(R);
     Rez:=Rez+R;
   end;
  Writeln(Rez);
end.

program Series1;

var

R,Rez:Real;

i:Integer;

begin

Rez:=0;

for i:=1 to 10 do

begin

Write('Введите ',i,' число: ');

Readln(R);

Rez:=Rez+R;

end;

Writeln(Rez);

end.

Другие задачи из раздела Series можно посмотреть здесь.

Комментарии 1

Bronislav

20.02.2018 в 01:36

begin write('сумма чисел = ', ReadSeqReal('Введите 10 вещественных чисел: ',10).Sum) end.

1
2
3

begin
write('сумма чисел = ', ReadSeqReal('Введите 10 вещественных чисел: ',10).Sum)
end.

Ответить

Добавить комментарий Отменить ответ

➤