Найти сумму четных целых чисел на промежутке от 1 до K

@profivsvoemdele · Регистрация: 25.11.2018

2. Найти сумму четных целых чисел на промежутке от 1 до K.

@ZX Spectrum-128 · 25.11.2018, 18:44

@Get_Over_Here · 25.11.2018, 18:51

Pascal

1
2
3

begin
  Range(2, ReadlnInteger, 2).Sum.Print
end.

@Sun Serega · 25.11.2018, 18:59

Не, ну я понимаю обычно такие решения проще...
Но блин, математику всё же надо знать:

Pascal

begin
  var n := ReadlnInteger div 2;
  writeln(n*(n+1));
end.

@profivsvoemdele 0 / 0 / 0 Регистрация: 25.11.2018 Сообщений: 46
		1
	Найти сумму четных целых чисел на промежутке от 1 до K 25.11.2018, 18:09. Показов 1839. Ответов 3 Метки нет (Все метки) 2. Найти сумму четных целых чисел на промежутке от 1 до K. 0

@ZX Spectrum-128 6809 / 4566 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	25.11.2018, 18:44	2
	Найти сумму четных чисел в промежутке 0

Опции темы