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

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

Question

Информатика

Никула

11 августа, 09:32

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

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

+5

Ответы (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