Вычислить сумму чётных чисел на отрезке от A до B

Решить на языке Pascal

Question

Информатика

Вассиан

7 июня, 23:59

Вычислить сумму чётных чисел на отрезке от A до B

Решить на языке Pascal

+4

Ответы (1)

Знаете ответ на вопрос?

Киряша · Answer 1

Var a, b, s, i:integer;

begin

write ('Введите начало отрезка: ') ;

readln (a) ;

write ('Введите конец отрезка: ') ;

readln (b) ;

s:=0;

for i:=a to b do begin

if i mod 2 = 0 then s:=s+i;

end;

write ('Сумма четных чисел на отрезке: ', s) ;

readln;

end.

Вычислить сумму чётных чисел на отрезке от A до BРешить на языке Pascal

Вычислить сумму чётных чисел на отрезке от A до B

Решить на языке Pascal