Найти сумму нечётных чисел от 1 до 1000 в паскаль
burtsevadianka
1
10.08.2019 16:50
6
Другие вопросы по теме Информатика
КУРОПАТКА777
24.11.2020 09:21
olsanskijartur
18.01.2021 10:22
Школьниқ
28.11.2021 18:01
BANDOLEROS
28.06.2019 10:00
gmunaitbas
28.06.2019 10:00
Ангелина8394
30.06.2019 02:20
Anton2657
30.06.2019 02:20
58584
30.06.2019 02:20
anastasyabesso1
15.06.2019 10:00
Популярные вопросы
- Нужен небольшой конспект по теме «Организационные структуры медицинской...
2 - Человека начало трясти не с чего, начели закатыватся глаза, он не отвечал...
3 - Дана квадратная матрица порядка M. найти сумму элементов ее главной1\побочной2...
1 - Сколько стоит щит на спину без цветный на ризоне глендейл ...
1 - Из какой страны поступает эта специальность?...
3 - Сколько стоит щит на глине без цветный (аризона)...
2 - с кратким пересказом литературного произведения Взять живым Карпов В.В....
1 - Решите с объяснением надо...
1 - как в суде можно назвать когда человек пытается отнять жизнь другого...
2 - Сколько будет 2 + 50? На этот вопрос сразу же ответите мне с другим...
3
begin
sum=0;
for i = 1 to 1000 do
if (i mod 2=1) then
sum=sum+i;
end.
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.