Ответ:
Складіть блок-схему алгоритму розв'язування задачі.
1) 1*2^6+1*2^5+0*2^4+0*2^3+1*2^2+1*2^1+0*2^0=64+32+0+0+4+2+0=102
2)012 = 0∙21+1∙20 = 0+1 = 110
Var x,y,z:string; k,p,l:integer;
begin
writeln('Введите строку:');
readln(x);
writeln('Введите слово:');
readln(y);
z:=x; k:=0;
l:=length(y);
p:=pos(y,x);
while p>0 do
begin
k:=k+1;
delete(z,p,l);
p:=pos(y,z);
end;
writeln('k = ',k);
end.
Пример:
Введите строку:
мама мыла раму, мама мыла окно.
Введите слово:
мама
k = 2
uses crt;
var
x, y, A1, A2, B1, B2, C1, C2:real;
begin
clrscr;
writeln('enter A1:');
writeln('enter A2:');
writeln('enter B1:');
writeln('enter B2:');
writeln('enter C1:');
writeln('enter C2:');
read(A1,A2,B1,B2,C1,C2);
if (A2 * B1 - A1 * B2) = 0 then
writeln('Программа не имеет решений')
else
begin
x:= (B1*C2-B2*C1) / (A2*B1-A1*B2);
y:= (A2 * C1 - A1 * C2) / (A2 * B1 - A1 * B2);
end;
writeln('x=', x:10:2);
writeln('y=', y:10:2);
end.