Question

ПОМОГИТЕЕЕ!!!!! напишите программу вычисления суммы чисел кратных 5 из натурального ряда чисел от 1 до n , и произведение чисел кратных к 3 (while)

Answer 1

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...ОтделыОбмен", Приём;

ПЕР
  n, сч, сумма, произведение: ЦЕЛ;

УКАЗ
  n := Приём.Число();
  сумма := 0;
  произведение := 1;
  сч := 1;
  ПОКА сч <= n ВЫП
    ЕСЛИ сч ОСТАТОК 5 = 0 ТО
      УВЕЛИЧИТЬ(сумма, сч)
    КОН;
    ЕСЛИ сч ОСТАТОК 3 = 0 ТО
      произведение := произведение * сч
    КОН;
    УВЕЛИЧИТЬ(сч)
  КОН;
  Вывод.ЧЦел("^%d^%d", сумма, произведение, 0, 0)

КОН Задание.