3А6₁₆ = 3×16²+10×16+6 = 3×256+160+6 = 934₁₀
7341₈ = 7×8³+3×8²+4×8+1 = 7×512+3×64+32+1 = 3809₁₀
Если нет ошибки, то 3А6₁₆ : 7341₈ = 934 : 3809
Хотя, это странный ответ...
Var a: string;
i: integer;
begin
readln(a);
for i := 1 to length(a) do
if (a[i] in ['0'..'9']) then write(a[i]);
<span>end.
2) Тут лучше: на входе строка, а берётся часть между 1 и 2 пробелами, ответ уже есть под задачей х)
var a, b: string;
i: integer;
w: boolean;
begin
readln(a);
for i := 1 to length(a) do
begin
if ((a[i] = ' ')) then
if (length(b) = 0) then w := true else w:=false;
if (w) then b := b + a[i];
end;
writeln(b);
<span>end.
3)
var s: string;
i: integer;
begin
readln(s);
for i := 1 to length(s) do
if s[i] in ['A', 'E', 'I', 'O', 'Y', 'a', 'e', 'i', 'o', 'y']
then write(s[i]);
<span>end.</span></span></span>
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Количество строк/столбцов в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(n,n,-99,99);
a.Println(4); Writeln(n*4*'-');
var b:=a.Rows.Select(row->row.Where(t->t.IsOdd).DefaultIfEmpty.Average)
.ToArray;
b.Println;
end.
<u>Пример</u>
Количество строк/столбцов в матрице: 5
*** Исходная матрица ***
40 -38 16 -70 26
87 7 -31 99 34
-34 -47 -33 32 56
66 71 41 7 80
55 42 -22 7 86
--------------------
0 40.5 -40 39.6666666666667 31
<span>в ед измерения не 1000 ед а 1024</span>
Код рабочий, проверял на PascalABC
uses GraphABC;
var m: integer; arr: array [1..10] of integer;
begin
for var i := 1 to 10 do
begin
arr[i] := Random(120,200);
end;
m := Max(arr[1], Max(arr[2], Max(arr[3], Max(arr[4], Max(arr[5], Max(arr[6], Max(arr[7], Max(arr[8], Max(arr[9], arr[10])))))))));
println(m);
end.