Question

Написать программу на Паскаль по нахождению суммы, произведения и количества чисел кратных 13 из отрезка от 10 до 50.

Answer 1

Var i,sum,summ,count: Integer;
begin
summ:=1;
for i:=10 to 50 do
begin
if i mod 13=0 then
begin
Inc(count);
Inc(sum,i);
summ:=summ*i;
end;
end;
writeln('Кол-во кратных: ',count);
writeln('Сумма чисел: ',sum);
writeln('Произведение чисел: ',summ);
end.

Answer 2

Для написания программы на Паскале, которая находит сумму, произведение и количество чисел, кратных 13, из отрезка от 10 до 50, можно использовать следующий код:

pascalCopy code
program SumProdCountMultiplesOf13;

var
  number, sum, product, countMultiples: Integer;

begin
  sum := 0;
  product := 1;
  countMultiples := 0;

  for number := 10 to 50 do
  begin
    // Найдем сумму всех чисел
    sum := sum + number;

    // Найдем произведение всех чисел
    product := product * number;

    // Проверим, кратно ли число 13
    if number mod 13 = 0 then
      countMultiples := countMultiples + 1;
  end;

  // Выведем результаты
  writeln('Сумма чисел от 10 до 50:', sum);
  writeln('Произведение чисел от 10 до 50:', product);
  writeln('Количество чисел, кратных 13:', countMultiples);

  readln;
end.

При выполнении программы вы увидите результаты: сумму всех чисел в указанном диапазоне, произведение всех чисел и количество чисел, кратных 13.