fork download
copy 
  1. program AddEvenNumbers;
  2. {
  3. 	Задача:
  4. 	- 103 из "Turbo Pascal в задачах и примерах"
  5. 	- автор сборника Никита Культин
  6. 	Решение:
  7. 	- автор Дмитрий С. Кузнецов
  8.     - цена $109.00
  9. }
  10. var
  11. 	i, n, amount		:integer;
  12.  
  13. begin
  14. writeln('Вычисление суммы четных положительных чисел.');
  15. writeln('Введите количество суммируемых чисел.');
  16. write(' -> ');
  17. readln(n);
  18.  
  19. amount := 0;
  20. for i := 1 to n do
  21.   amount := amount + 2 * i;
  22.  
  23. writeln('Сумма первых ', n, ' положительных четных чисел равна ', amount, '.')
  24.  
  25. end.
Success #stdin #stdout 0s 5260KB
comments (?)
stdin
copy 
34
stdout
copy 
Вычисление суммы четных положительных чисел.
Введите количество суммируемых чисел.
 -> Сумма первых 34 положительных четных чисел равна 1190.
https://ideone.com/CHT1DO
language:
Pascal (fpc 3.0.4)
created:
9 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!