Операции DIV и MOD В Pascal есть операции целочисленного

Операции DIV и MOD
В Pascal есть операции целочисленного деления и нахождения остатка
от деления. При выполнении целочисленного деления (операция div) остаток
от деления отбрасывается.
Например, 15 div 3 = 5; 18 div 5 = 3; 123 div 10 = 12, 7 div 10 = 0.
С помощью операции mod можно найти остаток от деления одного
целого числа на другое.
Например, 15 mod 3 = 0; 18 mod 5 = 3; 123 mod 10 = 3, 7 mod 10 = 7.
При записи алгебраических выражений используют арифметические
операции (сложение, умножение, вычитание, деление), функции Pascal,
круглые скобки.
Порядок действий при вычислении значения выражения:
 вычисляются значения в скобках;
 вычисляются значения функций;
 выполняется унарные операции (унарный минус — смена знака);
 выполняются операции умножения и деления (в том числе
целочисленного деления и нахождения остатка от деления);
 выполняются операции сложения и вычитания.
Встроенные математические функции языка Pascal
Математическая
запись
cos x
sin x
ex
[x]
|x|
x2
Запись на Pascal
Назначение
cos(x)
sin(x)
exp(x)
trunc(x)
abs(x)
sqr(x)
sqrt(x)
{x}
arctg x
ln x
frac(x)
arctan(x)
ln(x)
p
Pi
Косинус x радиан
Синус x радиан
Значение e в степени x
Целая часть числа x
Модуль числа x
Квадрат числа x
Квадратный корень из
x
Дробная часть x
Арктангенс числа x
Натуральный
логарифм x
Число p
Задача11. Дано трехзначное число. Найти сумму и произведение его
цифр.
var x, s, d, e: integer;
begin
write('Введите трехзначное число ->');
readln(x);
e:=x mod 10;
d:=x div 10 mod 10;
s:=x div 100;
writeln('Сумма цифр = ', s+d+e);
writeln('Произведение цифр = ', s*d*e);
end.
Задача 12. Дано трехзначное число. Вывести число, полученное при
прочтении исходного числа справа налево.
var x, s, d, e: integer;
begin
write('Введите трехзначное число ->');
readln(x);
e:=x mod 10;
d:=x div 10 mod 10;
s:=x div 100;
writeln('Перевернутое число = ', e*100+d*10+s);
end.
Задача 13. Дано трехзначное число. В нем зачеркнули первую слева
цифру и приписали ее справа. Вывести полученное число.
var x, s, d, e: integer;
begin
write('Введите трехзначное число ->');
readln(x);
e:=x mod 10;
d:=x div 10 mod 10;
s:=x div 100;
writeln('Новое число = ', d*100+e*10+s);
end.
Задача 14. Дано трехзначное число. В нем зачеркнули первую справа
цифру и приписали ее слева. Вывести полученное число.
var x, s, d, e: integer;
begin
write('Введите трехзначное число ->');
readln(x);
e:=x mod 10;
d:=x div 10 mod 10;
s:=x div 100;
writeln('Новое число = ', d*100+e*10+s);
end.
Задача 15. Дано трехзначное число. Вывести число, полученное при
перестановке цифр сотен и десятков исходного числа (например, 123
перейдет в 213).
var x, s, d, e: integer;
begin
write('Введите трехзначное число ->');
readln(x);
e:=x mod 10;
d:=x div 10 mod 10;
s:=x div 100;
writeln('Новое число = ', d*100+s*10+e);
end.
Задача 16. Дано трехзначное число. Вывести число, полученное при
перестановке цифр десятков и единиц исходного числа (например, 123
перейдет в 132).
var x, s, d, e: integer;
begin
write('Введите трехзначное число ->');
readln(x);
e:=x mod 10;
d:=x div 10 mod 10;
s:=x div 100;
writeln('Новое число = ', s*100+e*10+d);
end.
Задача 17. Дано целое число, большее 999. Используя одну операцию
деления нацело и одну операцию взятия остатка от деления, найти
цифру, соответствующую разряду сотен в записи этого числа.
var x, s: integer;
begin
write('Введите число, больше 999 ->');
readln(x);
s:=x div 100 mod 10;
writeln('Сотни = ', s);
end.
Задача 18. Дано целое число, большее 999. Используя одну операцию
деления нацело и одну операцию взятия остатка от деления, найти
цифру, соответствующую разряду тысяч в записи этого числа.
var x, t: integer;
begin
write('Введите число, больше 999 ->');
readln(x);
t:=x div 1000 mod 10;
writeln('Тысячи = ', t);
end.
Задача 19. С начала суток прошло N секунд (N – целое). Найти
количество полных минут, прошедших с начала суток.
var n, m: integer;
begin
write('Введите количество секунд ->');
readln(n);
m:=n div 60;
writeln('Минут = ', m);
end.
Задача 20. С начала суток прошло N секунд (N – целое). Найти
количество полных часов, прошедших с начала суток.
var n, h: integer;
begin
write('Введите количество секунд ->');
readln(n);
h:=n div 3600;
writeln('Часов = ', h);
end.
Задача 12. Дано трехзначное число. Вывести число, полученное при
прочтении исходного числа справа налево.
Задача 13. Дано трехзначное число. В нем зачеркнули первую слева
цифру и приписали ее справа. Вывести полученное число.
Задача 14. Дано трехзначное число. В нем зачеркнули первую справа
цифру и приписали ее слева. Вывести полученное число.
Задача 15. Дано трехзначное число. Вывести число, полученное при
перестановке цифр сотен и десятков исходного числа (например, 123
перейдет в 213).
Задача 16. Дано трехзначное число. Вывести число, полученное при
перестановке цифр десятков и единиц исходного числа (например, 123
перейдет в 132).
Задача 17. Дано целое число, большее 999. Используя одну операцию
деления нацело и одну операцию взятия остатка от деления, найти
цифру, соответствующую разряду сотен в записи этого числа.
Задача 18. Дано целое число, большее 999. Используя одну операцию
деления нацело и одну операцию взятия остатка от деления, найти
цифру, соответствующую разряду тысяч в записи этого числа.
Задача 19. С начала суток прошло N секунд (N – целое). Найти
количество полных минут, прошедших с начала суток.
Задача 20. С начала суток прошло N секунд (N – целое). Найти
количество полных часов, прошедших с начала суток.