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

Question

Информатика

Артамоныч

18 ноября, 03:54

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

+3

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