Program kek;var a , b: real;i: integer;beginfor i := 1000 to 10000 dobegin a := i mod 100; b := i div 100; if a + b = 100 then writeln(i)end;end.
Какой именно или по какой теме?
Var x,y:real;
begin
writeln('Введите координаты точки');
readln(x,y);
if (x>=0)and(y>=0)and(y<=(-1)*x+6)and(y>=(-2)*x+4)then writeln('True')
else writeln('False');
<span>end.</span>
Program array2d;
var
v_range, v_neg, i, j, n: integer;
array: array of array of integer;
i_range, i_neg: array[1..2] of integer;
begin
randomize;
write('введіть n: ');
readln(n);
SetLength(array, n, n);
write('введіть а та b: );
readln(a, b);
for i:= 1 to n do
for j:= 1 to n do
array(i, j) := random(100);
for i:= 1 to n do
for j:= 1 to n do
begin
if array(i, j) in a..b then
begin
if Assigned(v_neg) then
break; {перевірка, чи є негативне значення знайденим}
v_range := array(i, j);
i_range[1] := i;
i_range[2] := j;
end;
if array(i, j) < 0 then
begin
if Assigned(v_range) then
break;
v_neg := array(i, j);
i_neg[1] := 1;
i_neg[2] := 2;
end;
end;
if Assigned(v_range) and Assigned(v_neg) then
begin
array(i_range[1], i_range[2]) := v_neg;
array(i_neg[1], i_neg[2]) := v_range;
end;
writeln('Виконано.');
end.
Стандартно - система (Ваш ПК), т.е. представим, что вы создали папку - ее имя и будет обозначено, как "новая папка", "новая папка1" и т.д. Точно так же со всеми остальными файлами: у текстового документа (блокнот) и будет имя "Текстовый документ".
Не стандартно - Вы. Вы можете изменять имя как угодно, используя допустимые символы.