tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Паскаль.вывести массив из нечетных
Паскаль.вывести массив из нечетных чисел от 1 до 223 и вычислить их сумму.
маридиана
3 24.08.2019 12:40
0
Ответы
Glenchittt1
05.10.2020 16:37
// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('Сумма равна ',Range(1,223,2).Println.Sum)
end.
Результат
1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99 101 103 105 107 109 111 113 115 117 119 121 123 125 127 129 131 133 135 137 139 141 143 145 147 149 151 153 155 157 159 161 163 165 167 169 171 173 175 177 179 181 183 185 187 189 191 193 195 197 199 201 203 205 207 209 211 213 215 217 219 221 223
Сумма равна 12544
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
martyanovvanya1
15.12.2020 02:12
Дано три дійсних числа a, b, c. Якщо a-b с, кожне числозбільшується вдвічі, інакше Кожне число зменшується наодиню. Розробіть програму реалізації цього завдання....
Катядонецк
15.12.2020 02:13
Щоб додати кнопку на слайд, необхідно інструментом із вкладки ...
likaKiss1
15.12.2020 02:13
Моторний човен рухається у стоячій воді прямолінійно рівномірно. Швидкість човна v км/год. Який шлях пройде човен за t хвилин....
AloysiuS
15.12.2020 02:13
Кодирование RLE - это метод сжатия данных, который заменяет пробеги (последовательности битов с одинаковым значением) числом, представляющим длину пробега. RLE можно использовать...
silverking
20.08.2019 20:00
файл размером 2 мбайт передаётся через некоторое соединение за 30 секунд. определите размер файла (в кбайт), который можно передать через это соединение за 15 секунд....
Спасибо181
20.08.2019 20:00
Вычислить сумму первых 10 натуральных чисел для программы кумир...
lerabregneva
20.08.2019 20:00
Var k, s: integer; begin s: =5; k: =0; while k 15 do begin k: =2+k; s: =k+s; end; write(s); end....
zhakenovagulnaz
04.10.2019 23:12
Перевести числа из восьмеричной системы счисления в шестнадцатеричную: а) 774; б) 765,25; в) 0,5432; г) 654,763....
GiraAronEchwik
05.10.2019 01:10
Pascal abs массив екі өлшемді массив кездейсоқ сандармен толтырылады интервал [5..100]. жұп сандарының қосындысын тап....
Lopsiwk
05.10.2019 01:10
По паскалю авс составьте все выражения a = (c + d) (2k-m) путем деления на 5, а затем сообщите сумму остаточной стоимости. если остаток равен 0, присвойте значение целочисленной...
Популярные вопросы
2,3 разделить на 6,5 = x разделить на 6/7 решите с решением...
2
1) 1376: (34-x)=86, 2)9680: (x+219)=16 решите уравнения!...
1
Наиболее протяжённую морскую государственную границу россия имеет: а)на...
2
Запишите имена художников-илюстраторов записки охотника...
2
Перевести и ответить на вопросы внизу: a whale of a time! grey whales,...
1
Составьте предложения на со словами : cross out , rip up , rub out ,...
2
Проявлением медленного вертикального движения земной коры является :...
3
Решить уравнение 7\4 разделить 1 2\3...
1
Напишите рассказ на языке о сове не более 7 предложений...
1
Что это? отгадай задуманные слова и составь сними по одному устойчивому...
2
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('Сумма равна ',Range(1,223,2).Println.Sum)
end.
Результат
1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99 101 103 105 107 109 111 113 115 117 119 121 123 125 127 129 131 133 135 137 139 141 143 145 147 149 151 153 155 157 159 161 163 165 167 169 171 173 175 177 179 181 183 185 187 189 191 193 195 197 199 201 203 205 207 209 211 213 215 217 219 221 223
Сумма равна 12544