Uses crt;
var a,b,c,input:integer;
begin
readln(input);
a := input div 10;
a := a div 10;
b := input div 10;
b:=b mod 10;
c := input mod 10;
if (a + b + c) > 10 then writeln('Больше 10') else writeln('Меньше 10');
end.
Скопировать: Ctrl+C Вставить Ctrl+V
Зеленым написаны комментарии для лучшего понимания, не списывай их, а то спалишься:)
Var
n,k,d,dmin:integer;
begin
Write('n='); Readln(n);
dmin:=10;
while n>0 do begin
d:=n mod 10;
if d<dmin then begin dmin:=d; k:=1 end
else if d=dmin then k:=k+1;
n:=n div 10
end;
Writeln('Минимальная цифра ',dmin,' встречается ',k,' раз(а)');
Readln
end.