Практикум по решению задач на ЭВМ. Тарова И.Н - 26 стр.

                                Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.


  b) чему равна сумма его цифр
  c) найти первую цифру числа n
  d) найти последнюю цифру числа n

  {определение цифр в числе}
  program chislo(input,output);
  uses CRT;
  label 10;
  var n,r1,r2,r3,q,s:integer;
  begin
     clrscr;
     writeln('*Определение цифр в числе*');
     write('Введите число: ');
     read(n);
     s:=0;{начальное значение суммы цыфр числа n}
     q:=n;
     r1:=q mod 10;{младшая цифра числа}
     q:=q div 10;{1-е неполное четное}
     s:=s+r1;
    if q=0 then
       begin
writeln('количество цифр в числе: 1, сумма цифр=',s);
          writeln('первая и последняя цифра=',r1);
          goto 10;
       end;
    r2:=q mod 10;
    q:=q div 10;
    s:=s+r2;
    if q=0 then
       begin
writeln('количество цифр в числе: 2, сумма цифр=',s);
          writeln('первая цифра =',r2);
          writeln('последняя цифра =',r1);
          goto 10;
       end;
    r3:=q mod 10;
    q:=q div 10;
    s:=s+r3;
    if q=0 then
       begin
writeln('количество цифр в числе: 3, сумма цифр=',s);
          writeln('первая цифра=',r3);
          writeln('вторая цифра=',r2);


                                     26