var n, k, i:integer;
begin
writeln('Введи число, которое нужно выводить');
read(k);
writeln('Укажи, сколько раз вывести число');
read(n);
for i:=1 to n do
write(k,' ');
end.
<span>"C:\TEACHER\TXT\DOC\Информатика.txt" - полное имя файла
Можно разбить на каталог - "</span>C:\TEACHER\TXT\DOC" - и имя файла - "Информатика.txt".
Так как сейчас файл по условию находится в подкаталоге, то, если перейти на каталог выше, мы окажемся в изначальном каталоге. То есть "C:\TEACHER\TXT"
Представленную в двоичном виде(ДВОИЧНЫЙ КОД)
Var
z: array[0..9]of real = (-6, 98, -45, 9, 4, -7, -12, 32, 1, 3);
sum: real;
i: integer;
begin
for i := 0 to 9 do
if(z[i] < 0) then sum := sum + z[i];
write(sum);
end.