Вычисление суммы N чисел: использование новых возможностей: различия между версиями

Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
 
Нет описания правки
Строка 1: Строка 1:
<source lang="Delphi">var
  N: integer;
  sum: real;
begin
  write('Введите количество чисел: ');
  readln(N);
 
  write('Введите числа: ');
  sum := 0;
  for var i := 1 to N do
  begin
    var x: real;
    read(x);
    sum += x;
  end;
  writeln('Сумма введенных чисел = ',sum);
end.</source>
== Ссылки ==
== Ссылки ==
[[Особенности языка: базовый уровень]]
[[Особенности языка: базовый уровень]]

Версия от 17:00, 9 января 2010

var 
  N: integer;
  sum: real;

begin
  write('Введите количество чисел: ');
  readln(N);
  
  write('Введите числа: ');
  sum := 0;
  for var i := 1 to N do
  begin
    var x: real;
    read(x);
    sum += x;
  end;
  writeln('Сумма введенных чисел = ',sum);
end.

Ссылки

Особенности языка: базовый уровень

Источник — https://pascalabc.net/wiki/index.php?title=Вычисление_суммы_N_чисел:_использование_новых_возможностей&oldid=1231