50_x = 5x^1 +0x^0 = 5x
32_x = 3x^1 +2x^0 = 3x +2
15_x = 1x^1 +5x^0 = x +5
5x = 3x +2 +x +5
5x = 4x +7
x = 7
50_7 = 5*7^1 +0*7^0 = 35_10
11_7 = 1*7^1 + 1*7^0 = 7 + 1 = 8_10
35_10 + 8_10 = 42_10
Ответ: А.
Var s: string;
n,k: integer;
begin
write('строка: '); readln(s);
k:=0;
n:=pos('abc',s);
if n>0 then
repeat
k:=k+1;
delete(s,1,n+2);
n:=pos('abc',s);
until n=0;
writeln(k);
end.
строка: fdrsabcde dsabcjhy abckjuy
3
строка: dscabgfre fhygdte
0
нц
для i от 1 до 2
S := 0
нц
для j oт 2 до 3
нц для k oт 1 до 2
S := S+i+j+k
кц
кц
кц
S = (2 + 2 + 1) + (2 + 2 + 2) + (2 + 3 + 1) + (2 + 3 + 2) = 5 + 6 + 6 + 7 = 24
<span>var
y,x,b:real;
begin
writeln('У');
read(x,b);
y:=4*x/12*b+10;
</span>writeln('У=',y);
end.
var
A: array [1..3, 1..5] of Integer;
i, j: Integer;
s: Real;
begin
Randomize;
WriteLn ('Массив:');
for i := 1 to 3 do begin // заполнение массива случайными значениями и вывод для просмотра
for j := 1 to 5 do begin
A [i, j] := Random (22) - 11;
Write (A [i, j], ' ');
end;
Writeln;
end;
for i := 1 to 3 do begin // замена элементов с четной суммой индексов на 555
for j := 1 to 5 do begin
if (i + j) mod 2 = 0 then
A [i, j] := 555;
end;
end;
WriteLn;
WriteLn ('Результат: '); // вывод результата
for i := 1 to 3 do begin
for j := 1 to 5 do begin
Write (A [i, j], ' ');
end;
Writeln;
end;
end.