//Pascal
var
factorial: longint;
n, i: byte;
begin
write('n = '); readln(n);
factorial := 1;
for i:=2 to n do
factorial := factorial * i;
writeln('n! = ', factorial);
end.
A)кузнец,столяр,швея,шахтёр.b)таксист,слесарь,ткачиха
Var
A,i:integer;
P:real;
Begin
P:=1;
WriteLn('Введите 10 целых чисел');
For i:= 1 to 10 do
Begin
Read(A);
if (10<=A)and(A<=20) then P:=P*A;
End;
WriteLn('P = ',P);
End.
Программа распознавания, например FineReader, изображение каждой буквы преобразует в ее код, шрифт, выбирает нужные атрибуты: жирный, подчеркнутый, цвет и т. д.
Так как изображения букв точно не совпадают, программа может "ошибаться" при таких преобразованиях, из за этого возникают ошибки.