Составить программу с постусловием для нахождения произведения чисел от 1 до 15 , имеющий в остатке от деления на 3 число 2.как я поняла, это числа 2, 5, 8, 11 и 14составить программу не могу. прошу! от этого зависит моя четвертная оценка!

Написал на паскале uses crt; var i,n: integer; begin i: =0; n: =1; repeat if i mod 3=2 then begin n: =n*i; end; i: =i+1; until i> 15; writeln(n); end.

Прямые параллельны между собой,  если частное  коэффициентов  у  x и y равны. коэффициент - это ч исловой множитель в выражении.*посчитаем их. 7x + 6y + 9 = 0 у этого уравнения коэффициент у x - 7, а у y - 6 их частное - это  5x + 7y + 14 = 0тут коэффициенты x, y это 5 и 7 их частное -  8x + 6y + 19 = 0 тут коэффициенты x, y это 8 и 6 их частное -  сократим дробь на 2, получим 15x + 21y + 22 = 0 тут коэффициенты x, y это 15 и 21 их частное -  сократим дробь на 3, получим  10x + 14y + 4 = 0тут коэффициенты x, y это 10 и 14 их частное -  сократим дробь на 2 , получим  и того у нас получилось 3 равные дроби, это и есть те уравнения. 5x + 7y + 14 = 0 15x + 21y + 22 = 010x + 14y + 4 = 0

4) var    i,sum: integer; begin i: =2;     while (i< =22) do           begin         write(i,' ');         i: =i+2         end; end. 5) var    i,sum: integer; begin i: =5;     while (i< =20) do           begin         sum: =sum+i;         i: =i+1         end;   writeln('сумма чисел от 5 до 20 = ',sum) end. 6) var    i,pr: integer; begin i: =8; pr: =1;     while (i< =18) do           begin         pr: =pr*i;         i: =i+2         end;   writeln('произведение четных чисел от 8 до 18 = ',pr) end. 7) var    i: integer; begin i: =10;     while (i< =65) do           begin         write(i,' ');         i: =i+5         end; end.