Исходное данное — трёхзначное число x. Выполни для x=136 следующий алгоритм. a:=xdiv100b:=xmod100c:=xmod10s:=a+b+c

ответ:тщательно проанализировать реальный объект или процесс;

выделить его наиболее существенные черты и свойства;

определить переменные, т.е. параметры, значения которых влияют на основные черты и свойства объекта;

описать зависимость основных свойств объекта, процесса или системы от значения переменных с логико-математических соотношений (уравнения, равенства, неравенства, логико-математические конструкций);

выделить внутренние связи объекта, процесса или системы с ограничений, уравнений, равенств, неравенств, логико-математических конструкций;

определить внешние связи и описать их с ограничений, уравнений, равенств, неравенств, логико-математических конструкций.

Объяснение:

program cifry;

var p: integer;

var c: integer;

var s: integer;

var d: byte;

BEGIN

writeln('Программа расчёта разности произведения и суммы цифр трёхзначного числа.');

c:=100+random (900);

writeln('Число -', c);

p:=1;

s:=0;

d:=c mod 10;

s:=s+d;

p:=p*d;

c:=c div 10;

d:=c mod 10;

s:=s+d;

p:=p*d;

c:=c div 10;

d:=c mod 10;

s:=s+d;

p:=p*d;

c:=c div 10;

write('Разность произведения и суммы цифр числа -', p-s);

end.

Объяснение:

Нуэно ставить ";"  + переменная var

var p:integer, Нужно запускать програму и останавливать BEGIN , end. write писать в одной строке!