< >

с помощью паскаля вычислить сумму всех четных чисел от m до n.

Ответы

Ответ дал: Nina159
0

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.

Похожие вопросы
Русский язык
2 года назад
помогите написать сочинение на тему " компьютер или книга "
Русский язык
2 года назад
Подчеркни словосочетание, в котором  а) ПРИЛАГАТЕЛЬНОЕ УПОТРЕБЛЕНО В ПРЯМОМ ЗНАЧЕНИИ:  железные нервы, железная стружка, железная воля, железная дисциплина;  б) В ПЕРЕНОСНОМ ЗНАЧЕНИИ:  золотая брошь,
Алгебра
7 лет назад
Помогите пожалуйста! Срочно! дам 35 баллов
История
7 лет назад
Что стало одной из причин распада Арабского халиата
Физика
10 лет назад
какую работу надо совершить против сил поверхностного натяжения, чтобы увеличить вдвое объём мыльного пузыря радиусом 10 в -2 степени м. коэффициент поверхностного натяжения мыльного раствора равен
Физика
10 лет назад
Как измениться состояние движения человека,стоящего на идеально гладком льду,если он бросит килограммовую гирю?
Математика
10 лет назад
ремонтна бригада до обіду оглянула 360м трамвайної колії,після обіду-на 80 м більше. восьму частину колії вони запланували відремонтувати у перший місяць. скільки метрів вони запланували
Математика
10 лет назад
Постройте графики постоянных функций y=4;y=2;y=0;y-1,5;y=-5