Лови фото на фото второй пример перевода из двоичной в десятичную, из четверичной принцип тот же
К растровой (точечной), в которой изображение строится из точек, называемых пикселями (pixel - от англ. PICture ELement)
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString;
s:=s.RegexReplace('[A-Za-zА-Яа-яЁё]','');
Writeln(s)
end.
<u>Пример</u>
s1<s2, если для первого несовпадающего символа с номером i s1[i]<s2[i]
1<2, 1[]<2[]
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>