Question

Сделайте пожалуйста задачи 7.6, 7,7

Блок схемой прошу

Answer 1

// Программы на писаны на PascalABC.NET

// 7.6:

var

 number: integer;

Begin

 For number := 1000 to 9999 do

   if ((number mod 133 = 125) and (number mod 134 = 111)) then

     WriteLn(number);

End.

// Нашлось одно единственное число: 1987

___________________________

// 7.7

var

 Sum, a, b, c, count: integer;

Begin

 count := 0;

 

 // Число 500 не проверяется, т.к. очевидно, что 5 + 0 + 0 != 15

 For a := 1 to 4 do

    For b := 0 to 9 do

      For c := 0 to 9 do

      begin

        Sum := a + b + c;

       

        if (15 = Sum) then

          count := count + 1;

      end;

 

  WriteLn('Кол-во искомых чисел: ', count);

End.

// Кол-во искомых чисел: 26