Написать программу на Паскаль по нахождению суммы, произведения и количества чисел кратных 13 из отрезка от 10 до 50.
Написать программу на Паскаль по нахождению суммы, произведения и количества чисел кратных 13 из отрезка от 10 до 50.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program SumProductMultiplesOf13;
var
sum, product, count, i: integer;
begin
sum := 0;
product := 1;
count := 0;
for i := 10 to 50 do
if i mod 13 = 0 thenbegin
sum := sum + i;
product := product * i;
count := count + 1;
end;
writeln('Сумма чисел от 10 до 50: ', sum);
writeln('Произведение чисел от 10 до 50: ', product);
writeln('Количество чисел кратных 13: ', count);
end.