Var n,i:integer; a:array[1..15]of integer; begin for i:=1 to 15 do readln(a[i]); writeln('Массив: '); for i:=1 to 15 do begin write(a[i],' '); if a[i]>9 then n:=n+1; end; writeln; writeln('ответ: ',n) end.
Дважды подряд записать трехзначное число — это значит умножить его на 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.
n,i:integer;
a:array[1..15]of integer;
begin
for i:=1 to 15 do
readln(a[i]);
writeln('Массив: ');
for i:=1 to 15 do
begin
write(a[i],' ');
if a[i]>9 then n:=n+1;
end;
writeln;
writeln('ответ: ',n)
end.