<span> ЭОР нужны так же, как и другие учебные материалы - для обучения и образования. </span> Данный тип ресурсов является удобным вариантом для дистанционного обучения школьников и студентов (в том числе и людей имеющих проблемы со здоровьем).<span>
{ Дано предложение. Подсчитать число пробелов, стоящих на нечетных местах, и заменить такие пробелы на символ «*» }
var t,s: string; n,k,i: integer; begin writeln ('Введите предложение:'); readln (t); n:=length(t); s:='*'; k:=0; for i:=1 to n do begin; if (t[i]=' ') and (i mod 2 =1) then begin k:=k+1; delete(t,i,1); insert(s,t,i); end end; writeln (t); writeln ('Нечетных пробелов: ',k) end. ---------------результат----------------- Жил да*был*черный кот за*углом. Нечетных пробелов: 3 ---------------------------------------------
{ Дано слово, состоящее из количества букв кратного четырем. поменять в нем буквы следующим образом: первую с четвертой, вторую с третьей, пятую с восьмой, шестую с седьмой и т.д. например, из слова «карандаш» должны получить «аракшадн». }
const k=4; var a,a1,a2: string; n,i: integer; begin writeln ('Введите слово:'); readln (a); n:=length(a) div k; for i:=1 to n do begin a1:=LeftStr(a,k); delete(a,1,k); a1:=ReverseString(a1); a2:=a2+a1; end; writeln (a2); end. ---------------результат----------------- карандашкарандаш аракшаднаракшадн ---------------------------------------------