Программирование на языке PascalABC. Стандартные функции

var a, b: integer;
begin
a := 7*3 - 4; { 17 } a := a * 5; { 85 }
b := a div 10; { 8 }
a := a mod 10; { 5 }
end.
Арифметические операции
+ сложение – вычитание
* умножение / деление
div деление нацело (остаток отбрасывается)
mod остаток от деления

Program StandFun;
var
y, x: real;
z, p, s, t: real;
BEGIN
x := 4;
y := -9.7;
z := Abs(y); { 9,7 }
p := Sqr(x); { 16 }
s := Sqrt(x); { 4 }
end.
Стандартные функции
Sqr(x) x2 возвращает квадрат x
Sqrt(x) возвращает квадратный корень из х
Abs(x) |x| возвращает модуль x

Задача
1. Дано четырехзначное число (вводится с клавиатуры). В нем зачеркнули первую цифру (слева) и приписали ее в конце.
Найти полученное число.
2. Дано трехзначное число (вводится с клавиатуры «целиком»). Найти сумму его цифр.
713 7+1+3 15

Задача
Дано четырехзначное число (вводится с клавиатуры).
1. Вывести на экран цифры числа столбиком, начиная со старшей.
2. Младшую цифру переписали в начало. Вывести полученное число.
7132 2713

Блок-схема
конец
Выделение цифр числа
d, c, b, a
начало
ввод числа x
вывод нового числа
Формирование нового числа, например adcb
Обозначим:
a - единицы (мл.разряд)
b - десятки
c - сотни
d - тысячи
. . .

… и.т.д
Арифметические операции div mod
7132 : 1000 = 7 (132)
Нахождение старшей цифры a
132 : 100 = 1 (32)
Нахождение следующей цифры b
div деление нацело 7132 div 1000 = 7
mod остаток от деления 7132 mod 1000 = 132

Program Cifra1;
var
a,b,c,d: integer; {цифры числа}
R: integer; {исходное число}
ost : integer; {промежут.остатки}
New: integer; {полученное число}
BEGIN
...
END.
Решение задачи

BEGIN
writeln('Введите исходное 4-зн.число R: ');
readln (R);
d:=R div 1000; {находим старшую цифру d "Тысячи"}
Ost:=R mod 1000; {остаток}
c:=Ost div 100; {находим следующую цифру с "сотни"}
Ost:=Ost mod 100; {остаток}
b:=Ost div 10; {находим следующую цифру b "десятки"}
Ost:=Ost mod 10; {остаток}
{находим следующую цифру a - младшую "единицы"}
{ a:=Ost div 1;}
a:=Ost;
writeln('Цифры исх.числа: '); {Вывод данных 1 вариант}
writeln(d:1,c:1,b:1,a:1);
writeln('Новое число New: ');
writeln(a:1, d:1,c:1,b:1);
{Вывод данных 2 вариант}
writeln('Вывод данных 2 вариант ');
New:= a*1000 + d*100+c*10+b; {формирование нового числа}
writeln('Новое число New: ');
writeln(New:4); {Вывод данных 2 вариант}
END.
Решение задачи