var K, P, i: integer; begin Read(K); i := 1; while i < K do begin i := i + 3; P := P + i; end; Write(P); end.
PascalABC.NET:
Используя формулу для нахождения суммы первых членов арифметической прогрессии: , где — первый член прогрессии, — второй член прогрессии, — член под номером (в нашем случае — это K)
##var K := ReadInteger('K:');Print('S:', (4+K)/2*((K-4)/(7-4)+1))
Дважды подряд записать трехзначное число — это значит умножить его на 1001. Умножив на 1000, мы получаем исходное число с тремя нулями. Добавляем к полученному числу еще один раз исходное число. Получается число, в записи которого дважды повторяются цифры исходного числа. Последовательно разделить на 13, 11 и 7 – значит разделить число на произведение 13 * 11* 7, которое равно 1001. Получается, что мы число сначала умножаем на 1001, а после делим на 1001. Естетственно, у нас получится исходное число: (n * 1001) / (13 * 11 * 7) = (n * 1001) / 1001 = n.
Дважды подряд записать трехзначное число — это значит умножить его на 1001. Умножив на 1000, мы получаем исходное число с тремя нулями. Добавляем к полученному числу еще один раз исходное число. Получается число, в записи которого дважды повторяются цифры исходного числа. Последовательно разделить на 13, 11 и 7 – значит разделить число на произведение 13 * 11* 7, которое равно 1001. Получается, что мы число сначала умножаем на 1001, а после делим на 1001. Естетственно, у нас получится исходное число: (n * 1001) / (13 * 11 * 7) = (n * 1001) / 1001 = n.
[any] Pascal:
var K, P, i: integer; begin Read(K); i := 1; while i < K do begin i := i + 3; P := P + i; end; Write(P); end.PascalABC.NET:
Используя формулу для нахождения суммы первых
членов арифметической прогрессии: 
, где 
— первый член прогрессии, 
— второй член прогрессии, 
— член под номером 
(в нашем случае 
— это K)
##var K := ReadInteger('K:');Print('S:', (4+K)/2*((K-4)/(7-4)+1))Пример работы: