Найти сумму первых 6 последовательных четных чисел по Турбо Паскалю

Question

Информатика

Аида

23 ноября, 23:11

Найти сумму первых 6 последовательных четных чисел по Турбо Паскалю

+5

Ответы (1)

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

Сарра · Answer 1

Т. к. нам не задан откуда будет отсчет 6 чисел, будет задавать пользователь.

var

a, i, s:integer;

begin

s:=0;

readln (a) ;

for i:=a to a+11 do begin

if (i mod 2) = 0 then

s:=s+i;

end;

writeln (s) ;

end.