<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
ReadlnString('Введите целое число:').Reverse.Println
end.
1) 1*2^6+1*2^5+0*2^4+0*2^3+1*2^2+1*2^1+0*2^0=64+32+0+0+4+2+0=102
2)012 = 0∙21+1∙20 = 0+1 = 110
{В двухмерном массиве найдите количество и произведение не кратных 4
трехзначным элементов k-го столбца}
var
C:array [1..100,1..100] of integer;
p: longint;
kol, k:byte; {кол-во отрицательных эл-тов}
N,M,i,j:byte;
begin
writeln('введите размерность массива (кол-во строк, столбцов)');
readln(N,M);
writeln('введите элементы двумерного массива');
for i:=1 to N do
for j:=1 to M do
read(C[i,j]);
writeln('введите номер столбца');
readln(k);
kol:=0; P:=1;
for i:=1 to N do
if (C[i,k] mod 4<>0) and (C[i,k]>=100) and (C[i,k]<1000) then {не кратно 4, трехзначное}
begin
P:=P*C[i,k];
kol:=kol+1
end;
writeln('kol=', kol:7);
writeln('произведение=', P:5)
end.
//PascalABC.NET
//Версия 3.3, сборка 1634
function f(n: integer): integer;
begin
var fx:=1;
for var i:=2 to n do fx:=fx*i;
f:=fx;
end;
begin
var n:=ReadInteger('n=');
for var i:=0 to 9 do writeln('цифра ',i,' повторяется в числе ',f(n),' ',f(n).ToString.Where(x->x.ToDigit=i).Count,' раз' );
end.