Question

Составить программу на языке Паскаль Нахождение суммы любых 7 чисел используя цикл while

Answer 1

Var
k:integer;
a,s:real;
begin
while k < 7 do
begin
write('Введите число: ');
readln (a);
s:=s+a;
k:=k+1
end;
writeln('Сумма 7 чисел равна: ',s)
end.

Answer 2

Для нахождения суммы семи чисел с использованием цикла while на языке Паскаль, вам потребуется вводить числа пользователем и затем суммировать их. Вот пример программы:

pascalCopy code
program SumOfSevenNumbers;
var
  i, num, sum: Integer;
begin
  sum := 0;
  i := 1;
  
  while i <= 7 do
  begin
    Write('Введите число ', i, ': ');
    ReadLn(num);
    sum := sum + num;
    i := i + 1;
  end;
  
  WriteLn('Сумма введенных чисел: ', sum);
end.

В этой программе переменные i и sum используются для счетчика и аккумулятора суммы, соответственно. Цикл while будет выполняться семь раз (пока i меньше или равно 7), вводить число от пользователя, прибавлять его к сумме и увеличивать значение счетчика i. После завершения цикла программа выведет сумму введенных семи чисел.