Что в этом коде на free pascal считает k? program siberiaboss; var a: array[1..100] of integer; i,k,n: - id552028320230223 от katyanosa 23.02.2023 11:47

Question

Информатика: Что в этом коде на free pascal считает k? program siberiaboss; var a: array[1..100] of integer; i,k,n: integer; begin readln(n); randomize; for i: =1 to n+1 do begin a[i]: =random(10); if a[i] i then k: =k+1; writeln(a[i]: 3); end; writeln( itogo , k); end.

katyanosa · Accepted Answer

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

Что в этом коде на free pascal считает k? program siberiaboss; var a: array[1..100] of integer; i,k,n: integer; begin readln(n); randomize; for i: =1 to n+1 do begin a[i]: =random(10); if a[i] < i then k: =k+1; writeln(a[i]: 3); end; writeln('itogo ', k); end.

MOGZ ответил