вычислить сумму всех четных чисел от m до n.
Сафина3651
1
29.03.2019 14:20
2
Другие вопросы по теме Информатика
ЯРОСЛАФ
08.10.2019 01:10
рубін
08.10.2019 01:10
anastasiyachevh
12.01.2021 07:06
ScourgeTheCat
12.01.2021 07:06
DIMONSTERUSp
27.09.2019 09:50
ВикторияПан
08.08.2019 12:30
GDI1
08.08.2019 12:30
gasisivlasova
08.08.2019 12:30
Арбуз2200047
08.08.2019 12:30
Популярные вопросы
- Используя распределительное свойство умножения, найдите значение выражения....
3 - Написать программу,которая вычисляет число х^6 с трех операций умножения....
2 - До ть розв язати 4 В за до нформації з вправи 4 А...
1 - с французским, ничего не понимаю Leçon 1. Le 7 avril Задание для всех:...
2 - При каких значениях переменной алгебраическая дробь не имеет смысла?...
3 - Между населёнными пунктами A, B, C, D, E, Fпостроены дороги. Определи длину...
2 - Match the words. Then, use fourphrases to complete the sentences.1 meetinga...
2 - Решите подставки: {y=-3x {5x+3y=12 Решить также: {x=2y+5 {2x+8y=-4 {-если...
2 - Классифицируйте Ba(OH)2, LiOH, Fe(OH)3....
2 - Определите, в каком направлении будет дуть ветер и в каком случае он будет...
2
var I,m,n,S :integer;
begin
write ('m,n');
read (m,n); S:=0;
for I:=m to n do
if (I mod 2=0) then S:=S+I;
write ('S= ',S);
end.