1. составить программу вывода на экран всех трехзначных чисел, кратных 9. (паскаль, тремя способами) 2. составить программу вычисления суммы всех трехзначных чисел, кратных 17.(паскаль, тремя способами)

1)

program pr1; uses crt; var mas: array[100..999] of integer; i: integer; beginclrscr; for i: =100 to 999 do mas[i]: =i; {1 sposob}for i: =100 to 999 do if mas[i] mod 9 =0 then writeln(mas[i]); i: =100; {2 sposob}while i< =999 do begin if mas[i] mod 9=0 then writeln(mas[i]); i: =i+1; end; i: =100; {3 sposob}repeatif mas[i] mod 9=0 then writeln(mas[i]); i: =i+1until i=999end.

2)

program pr1; uses crt; var mas: array[100..999] of integer; i,v: integer; beginclrscr; v: =0; for i: =100 to 999 do mas[i]: =i; {1 sposob}for i: =100 to 999 do if mas[i] mod 17 =0 then v: =v+mas[i]; writeln(v); i: =100; {2 sposob}v: =0; while i< =999 do begin if mas[i] mod 17=0 then v: =v+mas[i]; ; i: =i+1; end; writeln(v); i: =100; {3 sposob}v: =0; repeatif mas[i] mod 17=0 then v: =v+mas[i]; i: =i+1until i=999; writeln(v); end.

Записываем в двоичной системе исчисления. 13(10) = 00001101(2) 19(10)  =  00010011(2) находим дополнительный код для 19, (в дополнительном коде будет - 19) 1.   находим инверсию числа 19 - заменяем 1 на нули, нули на единицы 00010011(2)   - > инверсия   ->   11101100(2) 2.   добавляем к инверсии 1 , получим дополнительный код 11101100(2) +               1 11101101(2) находим сумму 13+19 в дополнительном коде   00001101 + 11101101 11111010   старший разряд   = 1 , значит число отрицательное. находим дополнительный код (инверсия +1)  и добавляем знак " - " дополнительный код   00000101 + 1   =   00000110   =   - 6(10) 13 - 19 =   - 6