Вычислить сумму чётных чисел на интервале от a до b включительно, заданный пользователем. написать программу и начертить блок схему
kati800713
1
27.09.2019 23:00
0
Другие вопросы по теме Информатика
fiestrigha00p01bgj
28.05.2020 09:16
Зубканай
28.05.2020 20:26
polinas6661
28.05.2020 20:28
3333231231
28.05.2020 20:34
krisvll
12.12.2020 01:51
DoodleCrazy
12.12.2020 01:51
MaRiNa4ToP
12.12.2020 01:51
rasputniya
12.12.2020 01:51
missana12345
12.12.2020 01:52
YAGA009
13.12.2021 17:53
Популярные вопросы
- Лесные организмы твоего края растения...
2 - Какие при засухоустойчивых растений уменьшают расход водой? напишите...
3 - Автомобиль массой 1 т поднимается по шоссе с углом 30градусов под...
3 - Лишнее слово молоко пшено окно масло...
3 - Покажите что: числа -7 и 5 являются корнями уравнения х^2+2х-35=0...
3 - Кто был сеньором по отношению к герцогам и графам? а)-виконты б)-бароны...
3 - Решите волжский автомобильный завод в мае 2006 г. превысил плановое...
2 - Объясните почему число равное разности 41*7-17*7 делится на 7 какие...
3 - Рассчитайте кол-во консументов первого порядка в пруду, где энергия...
2 - Выполните действия а) 2_4/5: (7_2/3- 5_4/5)= б) /4- 2_1/2): 1/4+...
2
Var
a,b,i: Integer;
s,s1: Longint;
BEGIN
writeln('Ввод а');
readln(a);
Writeln('Введите b: '); Readln(b);
For i:=a to b do
If i mod 2=0 Then s:=s+i
Else s1:=s1+i;
Writeln('Сумма четных: ',s);
Writeln('Сумма нечетных: ',s1);
END.