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

Найти сумму нечётных чисел от 1 до 1000 в паскаль

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

Dmitry81

26.10.2021 09:56

Дан массив. найти максимальный элемент....

dasha3012008

08.06.2022 15:49

Напишите программу,которая пишет имя 20 раз...

vgirenkov

08.06.2022 15:49

Файл размером 64 кбайт передаётся через некоторое соединение со скоростью 1024 бит в секунду. определите размер файла (в кбайт), который можно передать за то же время через...

vfedkina35

02.05.2023 21:39

Сколько байтов составит сообщение из 384 символов 16-ти символьного алфавита...

пдсеьаомео

19.10.2022 18:19

Синформатикой: из чисел a b c d d выбрать такие которые больше среднего арифметического этих чисел напишите на языке паскаль. заранее...

karinnka2002

19.10.2022 18:19

С++. определить максимальный элемент матрицы на главной диагонали и сумму элементов этой диагонали. размер матрицы вводить с клавиатуры, элементы, а также результат, разместить...

оля27102000

19.10.2022 18:19

Информатиkа 5 kласс часть 2 номер 105...

Dashka6969

19.10.2022 18:19

По какому правиоу расположены элементы в таблице? какие элемены пропущены? 1,3,6,10,.конец. 4,,60,84,112.конец. 16,48,.конец....

TFestFlyMan

12.10.2022 18:10

Напишите программу которая вычисляет минимальное и максимальное число среди чисел вводимых с клавиатуры....

UpGitYT

03.04.2022 09:36

Для какого из значений числа x ложно высказывание: не (x = 5) или (x 6)? 1) 4 2) 5 3) 6 4) 7 2...

Ответ:

Ульяна1561

25.08.2020 22:08

Var i, sum integer;

begin
sum=0;
for i = 1 to 1000 do
if (i mod 2=1) then
sum=sum+i;
end.

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

Ответ:

Екатерина12311111

25.08.2020 22:08

Program sum_nechet;
var sum,i:integer;
begin
sum:=0;
for i:=1 to 1000 do
if i mod 2=0 then sum:=sum+i;
write('Сумма четных чисел равна ',sum);
end.

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

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

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