Var i:integer;
var t:text;
begin
for i:= 1 to 10000000 do
begin
execute( 'notepad.exe' );
assign(t,'poy'+inttostr(i)+'.txt');
rewrite(t);
close(t);
end;
end.
Var
S: string;
i: byte;
tmp: boolean;
begin
write('Введите строку: '); readln(S);
for i := 1 to Length(S) do
begin
if ((S[i] = '*') and (tmp = false)) then
begin
S[i] := '-';
tmp := true;
end;
if tmp = true then S[i] := '-';
end;
writeln(S);
end.
D1)прямая горизонтальная линия
2) любой из этих рисунков
С системным.
Как только Вы включаете компьютер (планшет, смартфон) , начинает загружаться операционная система. А она относится к классу системного программного обеспечения.