Написать программу в которой определяется сумма s всех целых чисел в интервале, заданном переменными n и m, а так же сумма sa четных и sb нечетных чисел в том же интервале, на языке pascal
tanyabober
1
06.12.2019 09:48
1
Другие вопросы по теме Информатика
leha7534
12.06.2019 07:20
Мамкинс
12.06.2019 07:20
nastya84756
28.09.2019 10:02
lollerkaa
28.09.2019 10:02
zhenyakulakova
31.03.2019 01:10
Aliska17
05.05.2021 13:44
helenodecca
05.05.2021 13:46
влад2220
18.07.2019 21:30
Популярные вопросы
- ЗАДАЧА: Недалеко от школы был выстроен технический центр по ремонту автомобилей....
3 - Площа паралелограма дорівнює 96 см2, периметр- 44 см, а відстань між більшими...
1 - Светимость Солнца L, это мощность излучения Солнца, т.е. энергия, излучаемая...
3 - очень надо. Как выполнить? Два диаметра одной круговой линии перпендикулярны....
3 - До ть будь ласка! Потрібно назвати б життя рослин і грибів. Забарвлення...
2 - При взаимодействии с каким из перечисленных веществ кремний будет проявлять...
3 - Какое значение частица имеет в предложении? Что за прелесть эти сказки!...
1 - 1.Запишите 32-битовый IP-адрес в виде десятичных чисел, разделенных точками....
1 - Расставит химические элементы в порядоке увеличения их электроотрицательности...
2 - Условие задания4Ы.Дан развернутый угол & BOA ЛучОС делит угол на части...
3
var i,n,m,s,sa,sb: integer;
begin
write('n = ');
readln (n);
write('m = ');
readln (m);
for i:=n to m do
begin
s:=s+i;
if i mod 2 = 0 then sa:=sa+i else sb:=sb+i
end;
write('s = ',s,' sa = ',sa,' sb = ',sb)
end.
Объяснение:
Если интервал [n,m]