Цикл while запросить 6 чисел и вывести их сумму

главное, чтобы счётчик начинался с 1, как можно скорее

Question

Информатика: Цикл while запросить 6 чисел и вывести их сумму главное, чтобы счётчик начинался с 1, как можно скорее ​

бабелон · Answer

var a,sum,k:integer; begin k := 1; while k 7 do beginread(a); sum:=sum+a;k:=k+1;end;write(sum) end....

Цикл while запросить 6 чисел и вывести их сумму главное, чтобы счётчик начинался с 1, как можно скорее ​