Question

Паскаль, цикл while, срочно, пожалуйста!

Запросить 6 чисел и вывести их сумму​

Answer 1

Ответ:

var a,s,k:integer;

begin

k:=0;

s:=0;

while k<6 do begin

k:=k+1;

read(a);

s:=s+a;

end;

writeln;

write(s);

end.