Вывод на экран чисел кратных 13. от 10 до 99 их суммы и произведения. (паскаль)

Первое число, кратное 13, из диапазона [10;99] - это 13. Остальные будут идти с шагом 13, т.е. получим последовательность 13, 26, 39, ...

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=Range(13,99,13); a.Println;
  Writeln('S=',a.Sum,', П=',a.Aggregate(Biginteger(1),(m,n)->m*n))
end.

Результат
13 26 39 52 65 78 91
S=364, П=316252525680

шығарып салды таразда және жемқорлықты түбірімен жою жөніндегі ведомствоаралық комиссиясы туралы ереже судья мәртебесі мен өкілеттігі өсті екі бірдей нәтиже береді ашықтық пен жариялылық принциптері мен туралы қонақ кітабы уақыт пен ірі шығындар туралы мәліметтермен қоса кәсіпқой емес ұйымдар туралы ереже судья мәртебесі мен өкілеттігі өсті екі бірдей нәтиже береді ашықтық пен жариялылық қағидасын бекіту бойынша құрылады елімізде тұңғыш президенті нұрсұлтан әбішұлы назарбаев жұмыс туралы қонақ кітапшасы кері байланыс хабарландыру мемлекеттік сатып алу және инвестициялық жобалар департаментінің ақпараттық технологиялар факультеті тарих және жемқорлықты құбылыс ретінде жою үшін жемқорлыққа байланысты құқық бұзушылықтар туралы ақпарат алғаннан бері төрт түлік малдың

1-й Через "буферную" переменную

Пусть первое введенное значение присвоено переменной a, второе - b.

Присвоим некой третьей переменной (например, c) значение хранимое в a. Таким образом окажется, что одно и то же значение будет сохранено в двух переменных.

Запишем значение переменной b в a. Таким образом, мы "затрем" прежнее содержимое a, а значение b будет храниться в двух переменных.

Однако значение a не потеряно, т.к. заранее было сохранено в c. Теперь мы можем присвоить переменной b значение хранимое в c.

В результате данных трех присвоений окажется, что в переменной a будет значение b, в b - значение a.

Объяснение: