Вот рабочая программа:
var
x,a,b,c,proiz,sum:integer;
begin
WriteLn('Введите 3-ех значное число');read(x);
a:=x mod 10;
b:= (x div 10) mod 10;
c:=x div 100;
sum:=a+b+c;
proiz:=a*b*c;
WriteLn('Произведение разрядов=', proiz);
WriteLn('Сумма разрядов=', sum);
end.
Когда эта информация подтверждена и не является газетной уткой(дезинформацией)
<span>a = (x ^ 2 - x * y)/(0.7 * sin (Log(abs(x))))</span>
<span>Две скобки не хватает.</span>
Функции этой клавиши
1) это символ новой строки
2)служит для для выбора пункта меню
3)служит для подачи на исполнение команды
4) служит для подтверждения какого-то действия или готовности пользователя
больше я не знаю(
Удачи!!!!
var
k: array [1..12] of <em>double</em>;
i: <em>byte</em>;
begin
for i := 1 to 12 do
begin
write('Enter the ', (new System.DateTime(1, i, 1)).toString('m').Replace('1', ''), 'temperature: ');
readln(k[i]);
end;
writeln('1) ', (k[12] + k[1] + k[2]) / 3);
writeln('2) ', (k[3] + k[4] + k[5]) / 3);
writeln('3) ', (k[6] + k[7] + k[8]) / 3);
writeln('4) ', (k[9] + k[10] + k[11]) / 3);
<span>end.</span>