Var St: string; z:string[10]; x:string[2]; i,j,k,m: integer; //новые переменные Begin Write('введите строку текста - St'); Readln(St); k:=0; //обнуляем на всякий случай z:='0123456789'; i:=1; for j:=1 to length(St) do //начало begin; for m:=1 to 10 do if St[j]=z[m] then inc(k); end; if k=0 then begin; writeln('в тексте нет цифр'); exit; end; //конец while i<=length(st)-1 do begin x:=copy(st,I,2); if (x[1]=x[2]) and (pos(x[1],z)<>0) then begin delete(st,i,2); insert('две',st,i); i:=i+1; end; i:=i+1; end; writeln('преобразованная строка ', st); End.
z:string[10];
x:string[2];
i,j,k,m: integer; //новые переменные
Begin
Write('введите строку текста - St');
Readln(St);
k:=0; //обнуляем на всякий случай
z:='0123456789';
i:=1;
for j:=1 to length(St) do //начало
begin;
for m:=1 to 10 do
if St[j]=z[m] then inc(k);
end;
if k=0 then
begin;
writeln('в тексте нет цифр');
exit;
end; //конец
while i<=length(st)-1 do
begin
x:=copy(st,I,2);
if (x[1]=x[2]) and (pos(x[1],z)<>0) then
begin
delete(st,i,2);
insert('две',st,i);
i:=i+1;
end;
i:=i+1;
end;
writeln('преобразованная строка ', st);
End.
)Соберите данные из текста, и создайте диаграмму или постер.
САМ ТЕКСТ↓↓↓↓↓
«Ұлы Жібек жолы» — Қазақстан жері арқылы өткен сауда-саттық жолы.
Қазақстанның ортағасырлық қалаВЫФФФларында жүргізілген қазба жұмыстары кезінде археологтер
Қытай мен Византия, Иран мен Үндістан елдерінде соғылған теңгелер мен ділдаларды
тапқан. Алматы қаласының маңындағы Талғар қаласының орнын қазған кезде Иранда
жаЗалған қола табақ, қытай фарфоры мен жапонның фаянс тостағанының сынығы және т.б.
бұйымдар табылған.
«Ұлы Жібек жолының» бойымен саудагерлер Ферғананың әйгілі тұлпарларын, түйе,
пілдермен қатар барқыт, жібек, мақпал, торғын маталарды, киім-кешекті және т. б. бағалы
тауарларды сату үшін алып өткен. Осы жол арқылы қант, жүзім, шабдалы, қауын сияқты
жеміс-жидек те саудаланған.
Объяснение: