Program exs;
var a, i, sum : integer;
begin
sum:= 0;
readln(a); {Считывание числа}
for i:= 1 to 4 do begin
sum:=sum + (a mod 10); {Находим остаток от деления на 10}
a:=a div 10; {Выкидываем найденную цифру из числа}
end;
writeln(sum);
end.
Program n1;
Uses CRT;
Var a: string;
begin
a:='информатика';
delete(a,1,2); delete(a,6,4);
writeln(a);
readln
end.
Чтобы отредактировать на компе сфотографированный документ .т.е такие программы позволяют из фото,pdf файлов сделать текст, который можно отредактировать .