Var a: string;
i: integer;
begin
readln(a);
for i := 1 to length(a) do
if (a[i] = 'а') then a[i] := 'и';
writeln(a);
<span>end.</span>
<span>в блок-схеме? в ромбике</span>
#include <iostream>
#include <cmath>
using namespace std;
int main() {
float a(-1),b(1),h,x1,x2,y1,y2,k,s(0);
int n(2);
do {
k=s; s=0;
for (int j=1; j<=n; j++) {
h=(b-a)/n;
x1=a+h*(j-1); x2=x1+h;
y1=x1*x1; y2=x2*x2;
s=s+(y1*h+y2*h)/2;
}
n++;
if (abs(s-k)<0.01) {
cout << "1" << endl;
break;
}
}
while(n>=0);
cout << s <<endl << n << endl;
return(0);
}
-75.223 = <span>-1001011.00111001000 (2)
- = 1
1.00101100111001000 * 10^6
^6 = ^110
110 * 1111111 = </span>1111010 мантисса
ответ
1 111<span>1010</span> 001011001110010000000000