Пример 1.4. Найти произведение цифр заданного целого четырехзначного числа.

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

Номер теста Проверяемый 
случай
Число Результат
1 Число положительное 2314 P = 24
2 Число отрицательное -1245 P = 40


Школьный АЯ
алг Произведение цифр (арг цел 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.
 
QBasic

CLS
INPUT "Введите четырехзначное число : ", Number
PRINT : PRINT "Цифры числа "; Number; ": ";
Number = ABS(Number)
i = FIX(Number / 1000): PRINT i ; ' FIX - целая часть аргумента
j = FIX(Number / 100) MOD 10 : PRINT j ;
k = FIX(Number / 10) MOD 10 : PRINT k ;
l = Number MOD 10 : PRINT l
P = i * j * k * l
PRINT : PRINT "О т в е т : произведение цифр равно " ; P
END

Другие записи

10.06.2016. Пример 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 Действительных…
10.06.2016. Пример 1.6. Две прямые описываются уравнениями a1 x + b1 y + c1 = 0; a2 x + b2 y + c2 = 0. Напечатать координаты точки пересечения этих прямых, либо сообщить, что эти прямые совпадают, не пересекаются или вовсе не cуществуют.
Система тестов Номер теста Проверяемый  случай Коэффициенты прямых Результаты a1 b1 c1 a2 b2 c2 1 Первая прямая не существует 0 0 1 1 2 2 Это не прямая 2 Вторая…