Компьютером управляет операционная система состоящая из набора различных программ при помощи различных команд. Если имеется ввиду удаленное управление компьютером, то разные программы бывают.
Var b,s:real;
begin
S := 3;
b := 0;
repeat
b := 2 + s + b;
s := s + 4;
until s=99;
writeln(b);
end.
В компьютерной системе есть возможность подключать новые устройства ввода, вывода,память компьютера, заменять старые устройства на современные, неисправные - на работающие
Var
i, g: integer;
begin
for i := 50 downto 2 do
if i mod 2 = 0 then g := g + i;
writeln(g);
end.
Путь к файлу не забудь поменять
var
t: text;
st: string;
s, i: integer;
c: char;
begin
s := 0;
st := '';
assign(t, 'ПУТЬ К ФАЙЛУ');
reset(t);
while not eof(t) do
begin
read(t, c);
if (ord(c) <> 13) then
st := st + c
else if TryStrToInt(st, i) then
begin
s := s + i;
st := '';
end
else
st := '';
end;
if TryStrToInt(st, i) then
s := s + i;
close(t);
writeln(s);
end.