Question

Дана последовательность чисел оканчивающихся на 0 найти сумму и произведение этих чисел(Нужно написать программу в Паскале

Answer 1

Var a,s,p:integer;
begin
s:=0;
p:=1;
write('Введите число: ');
readln(a);
while a<>0 do
begin
s:=s+a;
p:=p*a;
write('Введите число: ');
readln(a)
end;
writeln('Сумма чисел в последовательности: ',s);
writeln('Произведение чисел в последовательности: ',p)
end.

Answer 2

Конечно, вот пример программы на языке Pascal, которая находит сумму и произведение чисел, оканчивающихся на 0 в заданной последовательности:

pascalCopy code
program SumAndProduct;
var
  num, sum, product: integer;
begin
  sum := 0;
  product := 1;

  writeln('Введите последовательность чисел (введите 0 для завершения):');
  repeat
    readln(num);
    if num <> 0 then
    begin
      if num mod 10 = 0 then
      begin
        sum := sum + num;
        product := product * num;
      end;
    end;
  until num = 0;

  writeln('Сумма чисел, оканчивающихся на 0: ', sum);
  writeln('Произведение чисел, оканчивающихся на 0: ', product);
end.

Эта программа начинает с инициализации переменных sum и product нулями. Затем она запрашивает у пользователя последовательность чисел и проверяет, оканчиваются ли они на 0. Если число оканчивается на 0, оно добавляется к сумме и умножается на произведение. Программа продолжает работу до тех пор, пока пользователь не введет 0. После этого программа выводит сумму и произведение чисел, оканчивающихся на 0.

Answer 3

Вот пример программы на Pascal, которая находит сумму и произведение чисел, оканчивающихся на 0, в последовательности:

pascalCopy code
program SumAndProduct;
var
  num, sum, product: integer;
begin
  sum := 0;
  product := 1;
  
  writeln('Введите последовательность чисел (0 для завершения):');
  
  repeat
    readln(num);
    if (num mod 10 = 0) and (num <> 0) then
    begin
      sum := sum + num;
      product := product * num;
    end;
  until num = 0;
  
  writeln('Сумма чисел, оканчивающихся на 0:', sum);
  writeln('Произведение чисел, оканчивающихся на 0:', product);
  
  readln;
end.

Эта программа просит пользователя ввести последовательность чисел, и она будет продолжать принимать числа, пока не будет введен 0. После этого программа вычисляет сумму и произведение всех чисел, оканчивающихся на 0, и выводит результаты на экран.