1)
var
a, b, c, d: integer;
begin
readln(a);
b := a div 100; { сотни }
c := (a mod 100) div 10; { десятки }
d := a mod 10; { единицы }
writeln('Сумма цифр равна: ', b + c + d);
end.
2)
var
a, b, c, d, p: integer;
begin
readln(a);
b := a div 100; { сотни }
c := (a mod 100) div 10; { десятки }
d := a mod 10; { единицы }
p := d * 100 + c * 10 + b;
writeln('Наоборот: ', p);
end.
3)
var
a, b, c, d, e: integer;
begin
readln(a);
e := a div 1000; { тысячи }
b := (a div 100) mod 10; { сотни }
c := (a mod 100) div 10; { десятки }
d := a mod 10; { единицы }
writeln('Сумма: ', e + b + c + d);
writeln('Произведение: ', e * b * c * d);
end.
Посмотри в Help'е функцию Exec. У меня Turbo Pascal поэтому пример оттуда
Program StartApl;
{$M $4000, 0, 0 } { 16Kб стек, нет кучи }
uses Crt, Dos;
var ProgramName, CmdLine : String;
begin
ClrScr;
Write('Имя программы для запуска (с путём) : ');
ReadLn(ProgramName);
Write('Параметры командной строки ', ProgramName, ' : ');
ReadLn(CmdLine);
WriteLn('Пробую запустить...');
SwapVectors;
Exec(ProgramName, CmdLine);
SwapVectors;
WriteLn('... вернулся из Exec');
{ Была ошибка ? }
if DosError <> 0 then WriteLn('Ошибка DOS #', DosError)
else WriteLn('Запуск был удачным. Код выхода = ', DosExitCode);
end.
сори
Объяснение: