Var X,f:real; {начало раздела описания переменных,

в котором регистрируются переменные x и f - типа real}

begin {начало раздела операторов}

readln(x); {задание значения х через оператор ввода}

f:=2*x+exp(sin(x)/cos(x)*ln(10)); {присвоение переменной f результата выражения}

writeln(f); {вывод значения f}

readln; {ожидание нажатия клавиши Enter}

End. {конец программы}

Необходимо найти сумму первой и последней цифры заданного трехзначного натурального числа. Сначала определимся, какие переменные понадобятся при написании программы. Во-первых, нам понадобиться переменная x, которая будет характеризовать трехзначное число, она будет целого типа; во-вторых, нам понадобиться 2 переменные, например, a и b, которые будут отвечать за первую и последнюю цифру числа, соответственно. Они также будут целого типа. Значение x будет задаваться с помощью оператора ввода, тогда остается только вывести в конце программы результат суммы a и b. Чтобы получить первую и последнюю цифру числа, воспользуемся функциями div и mod. В итоге получаем следующую программу.

Var x,a,b:integer; {начало раздела описания переменных,

в котором регистрируются переменные x, a и b - типа integer}

begin {начало раздела операторов}

readln(x); {задание значения х через оператор ввода}

a:=x div 100; {присвоение переменной a значения первой цифры}

b:=x mod 10; {присвоение переменной b значения второй цифры}

writeln(a+b); {вывод значения суммы цифр}

readln; {ожидание нажатия клавиши Enter}

End. {конец программы}

7