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

Предыдущий
вопрос Следующий
вопрос

program SumProductMultiplesOf13;

var
sum, product, count, i: integer;

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

for i := 10 to 50 do
begin
sum := sum + i;
product := product * i;

end;

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