10. Подставляем значения переменных х1, х2, х3, х4 во все функции и получается, что подходит только 4 функция.
Ответ: 4
11. Также можно подставить все данные числа в функцию, и только при х=8 значение функции равно 0.
Ответ: 4.
12. ГВБА
var
a, b, c:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
write('НОД(', a, ', ', b, ', ', c, ') = ');
while (a <> 0) and (b <> 0) do
if a >= b then
a := a mod b
else
b := b mod a;
a := a + b;
while (c <> 0) and (a <> 0) do
if a >= c then
a := a mod c
else
c := c mod a;
writeln(a + c);
end.
<span>function Power(x,y:real):real;
{ (C) Puporev }
begin
if x=0 then
Power:=0
else
if x>0 then
Power:=exp(ln(x)*y)
else
Power:=-exp(ln(abs(x))*y);
end;
var
x,y:real;
begin
readln(x,y);
writeln(power(x,y));
end<span>.</span></span>
1.
var
c: char;
a: string;
i: integer;
begin
writeln('Введите строку a:');
readln(a);
writeln('Введите символ с:');
readln(c);
for i:=length(a) downto 1 do
if a[i] = c then delete(a, i, 1);
writeln(a);
<span>end.
2.
var
b: string;
i, b1, b2: integer;
begin
writeln('Введите строку b:');
readln(b);
b1 := 0; b2 := 0;
for i:=1 to length(b) do
begin
if b[i] = '!' then inc(b1);
if b[i] = '?' then inc(b2);
end;
writeln('Восклицательных знаков: ', b1);
writeln('Вопросительных знаков: ', b2);
<span>end.</span></span>
Var a, b, c:real; beginwrite ('Введите размеры катетов:');read (a, b);c:=sqrt(a*a+b*b);writeln('Длина гипотенузы=', c);end.