Var a,b,c: integer;
Begin
write('Ведите двузначное число: ');
readln (a);
b:=a div 10;
c:=a mod 10;
writeln('Сумма цифр равна: ',c+b);
writeln('Перевернутое число: ',c,b)
End.
a=1
нч для b от 1 до 10 ----это значит что цикл работает 10 раз
a=a+10 это значит что каждый рас добавляют о 10
и ответ равен 101
Пока сверху свободно вверх
закрасить
пока снизу не свободно то закрасить влево
если сверху свободно то вверх
вверх
влево
влево
пока снизу не свободно то закрасить вправо
вправо
пока снизу не свободно то закрасить вправо
В стандартном Паскале нет функции десятичного логарифма, поэтому воспользуемся соотношением lg(x) = ln(x) / ln(10).
Кроме того, показатель степени у числа "е" (-x² / 2xy) можно упростить до -x / 2y.
var
a,x,y:real;
begin
Write('Введите x и у через пробел: '); Read(x,y);
a:=1e5*Ln(Abs(0.8*x))/Ln(10)*Exp(-x/(2*y));
Writeln('a=',a)
end.