напишите программу которая вычисляет сумму первых десяти четных целых чисел
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
i, sum, k: Integer;
BEGIN
sum := 0; i := 2; k := 1;
while (k < 11) do begin
sum := sum + i;
i := i + 2;
k := k + 1;
end;
Write(sum);
END.