Помогите пожалуйста с информатикой(паскаль)
Посчитать сумму первых 10 чётных чисел.(те которые делятся на 2 без остатка)
Посчитать сумму первых 10 чётных чисел.(те которые делятся на 2 без остатка)
More Questions From This User See All
Answers & Comments
summ: Integer;
i:Byte;
begin
summ := 0;
for i := 0 to 20 do
begin
if i mod 2 = 0 then summ := summ + i;
end;
write('Summ is ', summ);
end.