Const
m = 10;
var
a: array[1..m+1] of integer;
i, k: integer;
begin
write ('Исходный массив: ');
for i := 1 to m do
begin
a[i] := random(100);
write (a[i],'; ');
end;
writeln;
write('Введите число: ');
readln(k);
for i:=m+1 downto 1 do
begin
a[i]:=a[i-1];
if a[i] mod 2=0 then
begin
a[i-1]:=k;
break;
end;
end;
write('Измененный массив: ');
for i := 1 to m+1 do
write (a[i],'; ');
<span>end.</span>
Решение
Человек лучше понимает и запоминает ту
информацию, которая представлена наглядно - с помощью рисунков,
фотографий, схем, диаграмм. Эту информацию легче анализировать.
Ну, для того, чтобы сравнить эти 2 значение. Нужно обратиться непосредственно к словарю.
Чем отличаются данные от программы?
<span><u>Данные</u> могут обрабатываться человеком, которому принадлежат сами данные.
</span><u>Программа </u>Управление компонентами вычислительной системы и формирование среды для функционирования прикладных программ берёт на себя системное программное обеспечение<span>, наиболее важной составляющей которого является </span>операционная система<span>. То есть все делает компьютер.)
</span><span>Общее.
</span>Скорее всего, что у данных есть 2 типа - двоичные и текстовые. Ну, а так как программа часть компьютера, то эти типы и ей принадлежат.)
Двоичные данные обрабатываются только специализированным программным обеспечением<span>, знающим их структуру, все остальные программы передают данные без изменений.
</span>Ну, и.
С точки зрения программиста, данные — это часть программы, совокупность значений определённых ячеек памяти, преобразование которых осуществляет код. С точки зрения компилятора, процессора, операционной системы, это совокупность ячеек памяти, обладающих определёнными свойствами (возможность чтения и записи ), невозможность исполнения).
Если, что-то не так, то заранее извини.)
Function Dec2n(dec,n:integer):string;
var
d:byte;
ch:char;
s,sgn:string;
begin
s:='';
if dec<0 then begin sgn:='-'; dec:=-dec end
else sgn:='';
while dec>0 do
begin
d:=dec mod n;
ch:=Chr(Ord('0')+d);
s:=ch+s;
dec:=dec div n
end;
Dec2n:=sgn+s
end;
var
m,n:integer;
begin
Write('Введитt целое десятичное число и основание для перевода (2-9): ');
Read(m,n);
Writeln(Dec2n(m,n))
end.
Тестовое решение
25 3
221
-38 9
-42
Решение
Весь текст содержит 60×40×24= 57 600 байт
Далее 57600:1024=56,25 Килобайт
Пожалуйста))