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

Номер теста

Проверяемый

случай

Число

Результат

Число положительное

2314

P = 24

Число отрицательное

-1245

P = 40

Turbo Pascal

Program DigitsProduct;

Uses Crt;

Var Number, {заданное число}

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.

Таблица основных встроенных функций (математические функции)

N п/п	Функция	Назначение	Тип аргумента	Тип функции
1.	ABS(X)	Вычисление абсолютного значениия X	REAL INTEGER	REAL INTEGER
2.	COS(X)	Вычисление косинуса X	REAL INTEGER	REAL REAL
3.	SIN(X)	Вычисление синуса X	REAL INTEGER	REAL REAL
4.	ARCTAN(X)	Вычисление арктангенса X	REAL INTEGER	REAL REAL
5.	EXP(X)	Вычисление экспоненты X	REAL INTEGER	REAL REAL
6.	LN(X)	Вычисление натурального логарифма X	REAL INTEGER	REAL REAL
7.	SQR(X)	Вычисление квадрата X (X*X)	REAL INTEGER	REAL INTEGER
8.	SQRT(X)	Вычисление квадратного корня из X	REAL INTEGER	REAL REAL
9.	TRUNC(X)	Нахождение целой части X (путем отбрасывания дробной части числа X)	REAL INTEGER	INTEGER INTEGER
10.	FRAC(X)	Нахождение числа, равного дробной части числа X	REAL INTEGER	REAL REAL
13.	INT(X)	Нахождение целой части X (целая часть числа INT - это бли-жайшее меньшее целое число)	REAL INTEGER	INTEGER INTEGER
14.	ROUND(X)	Округление X в сторону ближайшего целого	REAL INTEGER	INTEGER INTEGER
15.	RANDOM(X)	Нахождение случайного числа от 0 до X	INTEGER	REAL
16.	ODD(X)	TRUE, если X - нечетное FALSE	INTEGER	BOOLEAN

<<< < Предыдущая 1 23 / 43 4 > Следующая >>>

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]