Question

Составьте программу вычисления суммы чисел кратных 6 в диапазоне от 6 до 100. Pascal ABC. При выполнении использовать while.

Answer 1

Ответ:

var

i: integer; // loop variable

sum: integer; // sum of multiples of 6

begin

i := 6; // initialize loop variable

sum := 0; // initialize sum

while i <= 100 do // loop until i > 100

begin

sum := sum + i; // add i to sum

i := i + 6; // increment i by 6

end;

writeln(sum); // print sum

end.

Объяснение: