Учитель задал ученику следующую задачу: Напиши программу с использованием цикла while , которая будет по вводимому с клавиатуры целому числу n, подсчитывать сумму всех целых чисел от 2 до n с шагом 3.Ученик спешил и написал программу с ошибками. Исправь все ошибки в программе (используй программу Pascalvar ; i, S:real:read(n)i:=1S:=0;while i<n do begin i:=i+3;S:=S+S; writeln(‘S= ’, i);​

Дважды подряд записать трехзначное число — это значит умножить его на 1001. Умножив на 1000, мы получаем исходное число с тремя нулями. Добавляем к полученному числу еще один раз исходное число. Получается число, в записи которого дважды повторяются цифры исходного числа.
Последовательно разделить на 13, 11 и 7 – значит разделить число на произведение 13 * 11* 7, которое равно 1001.
Получается, что мы число сначала умножаем на 1001, а после делим на 1001. Естетственно, у нас получится исходное число:
(n * 1001) / (13 * 11 * 7) = (n * 1001) / 1001 = n.