PascalABC.NET 3.4
begin
// Если a и b целые, они также включаются в подсчет
var (a,b):=ReadReal2('Введите через пробел два числа:');
if a>b then Swap(a,b); // а - левая границв
Writeln('Целых чисел в интервале: ',Trunc(b)-Trunc(a)+1);
end.
program raf105;
const
N = 10;
var
a,b: array[1..N] of integer;
x: boolean;
begin
for var i:=1 to N do
begin
a[i]:= random(15);
b[i]:= random(15);
end;
writeln('A: ',a);
writeln('B: ',b);
write('Вывод: ');
for var i:=1 to N do
begin
x:= False;
for var j:=1 to N do
if a[i] = b[j] then x:= True;
if not(x) then write(a[i],', ');
end;
end.
<h3>PascalABC</h3>
Ярлык - короткий путь до файла
например, ярлык может указывать на файл E:\members\mem.exe
Если же ярлык скопировать на другой компьютер, то файл просто не будет найден, так как ни папки members, ни файла mem.exe на другом компьютере может не быть
во-первых: задан ли двумерный массив с?
во-вторых, операторская скобка begin не нужна
в-третьих не поставлена точка с запятой после <span>c[i,j]:=a[i,j]+ a[i,j]</span>
<span>скоре всего ошибка в третьем...</span>
<span>алгоритм выполняет следующее: он берет элемент из двум. массива и в новый двумерный на это же место присваевает элементу значние, равное сумме этого элемента и его себя опять же,или,подругому, присвает ему значение, равное двум соотв. ему элементам в массиве предыдущ</span>
<span>например</span>
дан массив 2х3:
1 3 45
9 8 2344
тогда новый массив будет иметь вид:
2 6 90
18 16 4688
F= ¬A*B +A+B
F=B(¬A+1) +A
F=A+B
