<span>Совокупность программных средств обеспечивающих управление работой компьютера и его взаймодействие с пользователем это:
1)операционная система</span>
Program vs4;Var n,b,a,c:integer;Begin Writeln('Введите трехзначное число'); Readln(n); a:=n div 100; b:=(n div 10) mod 10; c:=(n mod 100) mod 10; n:=a+b+c; Writeln('Сумма цифр данного числа=',n);End.
Var
s,g:string;
sum:integer;
begin
g:='бвгджзйклмнпрстфхцчшщБВГДЖЗЙКЛМНПРСТФХЦЧШЩ';
read(s);
sum:=0;
for var i:=1 to length(s) do
if (pos(s[i],g)>0) then sum:= sum+i;
writeln(sum);
end.
<span>//ABC Pascal
</span>
.......................................................
делишь на два, остатки записываешь в обратном порядке