Цикл while запросить 6 чисел и вывести их сумму
Главное, чтобы счётчик начинался с 1, пожалуйста как можно скорее
Главное, чтобы счётчик начинался с 1, пожалуйста как можно скорее
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
a,sum,k:integer;
begin
k := 1;
while k < 7 do
begin
read(a);
sum:=sum+a;
k:=k+1;
end;
write(sum)
end.
a,sum,n,i,k:integer;
begin
k := 1;
while k <> 7 do
sum:=a+b+c+d+e+f;
write(sum)
end.