Найти сумму чисел от 100 до 200,кратных 17. - Turbo Pascal

Формулировка задачи:

1.составить программу вычесления значенния функции y=f(x).Если задоное значение принадлежит области определения функции,то результат расчёта выводится в виде y(...)=...,в противном случии выдаётся сообщение:<<при x=...функция не определена>>.Функция:y=x^2*ln(x). 2.Найти сумму чисел от 100 до 200,кратных 17. 3.Известна сторона квадрата. Составить программу для вычесления рериметра квадрата. 4.доно натуральное число.Определить номер цифры 3 в нём,счетая от конца числа.Если токой цифры нет,ответом должно быть число 0,если таких цифр в числе нескоклько должен быть определен номер самой правой из них.(решить двумя способоми) 5.Даны стороны двух треугольников.,найти суммы их перимметров и площадей.(с пременением процедур). 6.Дан прямоугольник,длины которого х и у являются натуральным числом.Определить на сколько квадратов можно разделить данный прямоугольник.Указать размеры. 7.Дано натуральное число опредилить, является разность его максимальных и менемальных цифр четным числом. 8.Даны положительные числа a,b,c,d.Выяснить,можноли прямоугольник со сторонами a,b уместить в нутри прямоугольника состоронами c,d так,чтобы каждая из сторон одного премоугольника,была поралельно или пенпердекуляльно стороне второго.Ответ получить в текстовом формате-можно получить, нельзя.

Решение задачи: «Найти сумму чисел от 100 до 200,кратных 17.»

Листинг программы

program sum;
 
uses crt;
 
var 
  i, s: integer;
begin
 s := 0;
  for i := 100 to 200 do 
   begin
     if (i mod 17 = 0) then
       s := s + i;
   end;
  writeln('Summa chusel ot 100 do 200 krathih 17 = ', s); 
  readln;
end.

Объяснение кода листинга программы

В данном коде на языке Turbo Pascal заданы следующие условия:

Сумма чисел от 100 до 200, кратных 17, вычисляется и сохраняется в переменной s.
Переменная i используется для итерации по числам от 100 до 200.
Внутри цикла проверяется условие i mod 17 = 0, если оно выполняется, то число i добавляется к переменной s.
После завершения цикла выводится значение переменной s с помощью функции writeln.
С помощью функции readln пользователю предлагается ввести данные для обработки. В итоге, код выводит на экран сумму чисел от 100 до 200, кратных 17.