Ответы на вопрос:
Begin +37)*((65-37) div 2 +1)) div 2); end. или более универсально: var a,b : integer; begin readln(a,b); inc(a,ord(not odd(; dec(b,ord(not odd(; +a)*((b-a) div 2 +1)) div 2); end. а если строго по , то так: var s,i : integer; begin s: =0; i: =37; repeat s: =s+i; inc(i,2); until i> 65; writeln(s); end.
Популярно: Информатика
-
sinitsadmitrij22.02.2022 14:58
-
Тимыч0829.10.2021 14:30
-
artemkharlamov125.06.2023 01:00
-
laikover09.04.2022 15:36
-
marina13marina1319.05.2022 10:36
-
1lёn108.04.2022 12:21
-
Svetlana267512.04.2022 03:21
-
khfozilzhonov26.03.2020 13:31
-
Ajjr115.08.2021 04:09
-
MimINL23.04.2021 11:21