Question

Найдите сумму любых 10 чисел с помощью программы паскаль.

Answer 1

Program sa;
var
a,s,b:integer;
begin
s:=0;
for a:=1 to 10 do
begin
readln(b);
s:=s+b;
end;
writeln(s);
end.

Answer 2

Конечно! Вот пример программы на языке Pascal, которая вычисляет сумму 10 чисел:

pascalCopy code
program SumOfNumbers;

var
  numbers: array[1..10] of Integer;
  sum: Integer;
  i: Integer;

begin
  sum := 0;

  writeln('Введите 10 чисел:');
  for i := 1 to 10 do
  begin
    write('Число ', i, ': ');
    readln(numbers[i]);
    sum := sum + numbers[i];
  end;

  writeln('Сумма чисел: ', sum);
end.

Вы можете скопировать этот код и вставить его в среду программирования на языке Pascal, например, в программу Lazarus или Free Pascal, чтобы выполнить его и ввести 10 чисел. Затем программа выведет сумму этих чисел.