Информатика 10-11. Книга 2. Практика алгоритмизации и программирования. Шауцукова Л.З. - 10 стр.

Школьный АЯ
алг Произведение цифр (арг цел Num,            рез цел P)
нач цел i, j, k, l
  Num := abs(Num)             | abs            - абсолютная величина
  i := div(Num, 1000)         | i -            первая цифра
                              | div            - частное от деления с
остатком
  j := mod(div(Num, 100), 10) | j -            вторая цифра
                              | mod            - остаток от деления с
остатком
  k := mod(div(Num, 10), 10) | k -             третья цифра
  l := mod(Num, 10)           | l -            четвертая цифра
  P := i * j * k * l;
кон

Turbo Pascal
Program DigitsProduct;
Uses Crt;
Var Number,       {заданное число}
     i, j, k, l, {цифры числа}
     P : Integer; {произведение цифр}
BEGIN ClrScr;
  Write( 'Введите четырехзначное число : ' ); ReadLn(Number);
  Number:=Abs(Number);
  Write( 'Цифры числа ' , Number , ' : ' );
  i := Number div 1000; Write(i:3);       {первая цифра}
  j := Number div 100 mod 10; Write(j:3); {вторая цифра}
  k := Number div 10 mod 10; Write(k:3); {третья цифра}
  l := Number mod 10; WriteLn(l:3);       {четвертая цифра}
  P := i * j * k * l ;
  WriteLn( 'О т в е т : произведение цифр равно ' , P );
  ReadLn
END.



               Пример 1.5. Решить квадратное уравнение ax2+ bx + c = 0.

                                   Система тестов



Номер    Проверяемый          Коэффициенты
теста       случай                                          Результаты
                               a     b     c

  1     d >0                   1     1    -2   x1 = 1, x2 = - 2

  2     d=0                    1     2     1   Корни равны: x1 = - 1, x2 = - 1

  3     d<0                    2     1     2   Действительных корней нет

  4     a=0, b=0, c=0          0     0     0   Все коэффициенты равны нулю. х