Ввести натуральное число и определить, верно ли, что сумма его цифр равна10.

Program g; uses crt; var summ, x, m, back: integer; begin   clrscr;   writeln('введите натуральное число.');   readln(x);   summ: =0;   back: =x;   while x> 0 do   begin     m: =x mod 10;     x: =x div 10;     summ: =summ+m;   end;   if summ=10 then writeln('сумма цифр числа ', back, ' равна 10.')   else writeln('сумма чисел числа ', back, ' не равна 10.');   readln;   end.

1) 73=1001001 (2)         2)91=1011011 (2)      44=101100 (2)               28=11100 (2)

+1001001                             -1011011      101100                                   11100                                 1110101= 117 (10)             111111=63 (10)

 

3)27=11011 (2)

    5=101 (2)    *11011

          101

   

  +   11011

    00000

  11011

 

10000111=135

 

4)70=1000110 (2)

    7=111 (2)

  - 1000110 | 111

      111         |    1010= 10 (10)

          -111

          111

           

                0

 

uses crt; var a: array[1..99] of real; i,j,n: integer; max: real; beginwrite('введите n: '); readln(n); writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random()+1)-99; write(a[i]: 5); end; writeln; max: =-5; for i: =1 to n do begin if abs(a[i])> max then begin max: =abs(a[i]); j: =i; end; end; writeln('максимальное по модулю число равно ',a[j]); end.

здесь элементы массива - случайные числа от -99 до 99. в ответе выписывается само число, а не его модуль. если нужен именно модуль, то меняем предпоследнюю строку на  writeln('максимальное по модулю число равно ',max);