Войти Регистрация Спроси ai-bota

Найти сумму всех трёхзначных четных чисел. программа паскаль

Ответ:

ОвССянка

27.08.2020 11:27

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018Внимание! Если программа не работает, обновите версию!

begin

Range(100, 999, 2).Sum.Println;

end.

Результат247050

0,0(0 оценок)

Ответ:

maksim393

27.08.2020 11:27

Это арифметическая прогрессия:

$a_{1}=100,d=2,a_{n}=998\\a_{n}=a_{1}+d \timtes (n-1)\\n=\frac{a_{n}-a_{1}}{d}+1=\frac{998-100}{2}+1=450\\s=\frac{a_{1}+a{n}}{2} \times n=\frac{100+998}{2} \times 450=247050$

0,0(0 оценок)

Популярные вопросы: Информатика

emoe0zosixnc

14.11.2020 19:31

Программа для basic. дана матрица p(3, 4), состоящая из целых чисел. поменять местами наибольший и наименьший элементы матрицы, затем все элементы матрицы умножить...

svetlanagilman1

12.07.2021 04:44

Назовите существенные признаки пуделя...

mamamama9

12.07.2021 04:44

Как выделялось на папирусах начало новой мысли? как мы выделяем новый абзац в тексте?...

190G

01.10.2021 10:04

За що відповідає властивість Caption ?...

socnyjarbuz

02.06.2021 20:13

Пайтон тілінде прогламмалау БЖБ...

zalina59

04.06.2022 07:55

Макроязык это низкоуровневый или высокоуровневый язык программирования?...

kolart

26.08.2021 06:10

15 вопросов на тему имя прилагательное...

Vladikf01Vlad220

26.08.2021 06:10

Сделайте краткий пересказ отрывка: тесно стало моему дедушке жить в симбирской губернии, в родовой отчине своей, жалованной предкам его от царей московских; тесно...

ebusuruna

06.02.2023 03:21

Выразите в метрах и запишите в виде десятичной дроби 588мм...

maksimmolotov2

06.02.2023 03:21

что такое ненависть и из чего она рождается ? (250 слов)...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку