Написать программу, вычисляющую сумму первых 10 нечётных целых чисел. заранее .
111
443
Ответы на вопрос:
Program prog; var a,i,s: integer; begin s: =0; writeln('укажите начало отрезка '); readln(a); for i: =a to a+10 do begin if a mod 2 = 1 then s: =a+s; end; write('сумма нечетных 10 элементов начиная с ',a,' равна ',s); end.
303: 2=151 остаток 1 151: 2= 75 остаток 1 75: 2=37 остаток 1 37: 2=18 остаток 1 18: 2=9 остаток 0 9: 2= 8 остаток 1 8: 2=4 остаток 0 2: 2=1 остаток 0 число - 100101111
Популярно: Информатика
-
051307281312.05.2020 12:15
-
vovan888112.11.2020 12:26
-
малыш11521.05.2023 22:23
-
Наоя21.02.2023 03:36
-
SeetFatRed81913.05.2020 09:57
-
VERIGINGUIGORY06.11.2022 13:06
-
Никочка657789025.11.2021 16:35
-
nasti090200302.09.2022 03:42
-
LegoLAS0908.11.2022 05:02
-
Lenin22711.07.2021 03:41