Ван-царевич і Змій Горинич знайшли в тридев’ятому царстві скриню з золотими монетами номіналом від 1 до N.

Іван взяв собі монети з парним номіналом, а Змій Горинич – з непарним.

Яка сума дісталась Івану-царевичу після розподілу скарбу?

Контрольні приклади

1) N= 5 => s= 6

2) N= 9 => s= 20

3) N= 40 => s=420

Пояснення до прикладу № 2

Іван отримав монети 2, 4, 6, 8 (Змій Горинич – 1, 3, 5, 7, 9) на загальну суму 2+4+6+8= 20.

PascalABC.NET

#1

begin

 PartitionPoints(-10, 10, 20).Tabulate(p -> 5*(p**2) + 2*p).Println;

end.

#2

begin

 var A := ReadSeqIntegerWhile(p -> p <> 0).ToList;

 var x := ReadInteger('Считаем это число: ');

 A.Where(p -> p = x).Count.Println;

end.

#3

function IsNumberContainsDigit(number:integer; digit: char):boolean;

begin

 var stringnumber := number.ToString;

 if stringnumber.contains(digit) then IsNumberContainsDigit:=True else IsNumberContainsDigit := False

end;

begin

 var (a, b) := ReadInteger2('a, b: ');

 var rng := Range(a, b);

 rng.Where(p->IsNumberContainsDigit(p, '0')).Print;

end.

Объяснение:

#include <iostream>

int main()

{

int n;

float l;

std::cin >> n >> l;

switch (n)

{

case 1:

 std::cout << "Length: " << l / 10;

 break;

case 2:

 std::cout << "Length: " << l * 1000;

 break;

case 3:

 std::cout << "Length: " << l;

 break;

case 4:

 std::cout << "Length: " << l / 1000;

 break;

case 5:

 std::cout << "Length: " << l / 100;

 break;

default:

 break;

}

std::cout << std::endl;

system("pause");

return 0;

}