Решить:

дано трехзначное натуральное число, требуется вычислить сумму его цифр.

ответ:

я уже писал такие

program s9;

var h,s,d,g,e,j,l,n,z,f: integer;

begin

writeln('введите любое трехзначное число');

read (h);

d: =h div 100;

g: =h mod 10;

e: =h div 10;

j: =e mod 10;

s: =g*100;

l: =j*10;

n: =s+l+d;

f: =d+g+j;

writeln('инверсия данного числа будет=',n);

if (n> h) then z: =n-h;

if (n

writeln('разница между числом и его инверсией будет=',z);

writeln('сумма всех цифр из данного числа будет = ',f);

end.

объяснение:

самотестирование компьютера

                |

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

                |

второй этап - программа загрузчик загружается в оперативную память для передачи работой комп.

                |

программа ищет файлы операционной системы и загружает их в оперативную память в качестве программных модулей

при включении комп. ос загружается в оп раньше остальных программ

program xxx;

var a,s : string;

    i: integer;

begin

    writeln ('введите слово и символ-');

    readln (s,a);

    for i: =1 to length(a) do

        if copy (s,i,1)=a then writeln (i);

    readln

end.