Var s,a: string; p: integer; begin write('Введите строку: '); readln (s); a:='www'; p:=length(s) div 2 +1; if length(s) mod 2 <>0 then delete(s,p,1) else insert(a,s,3); writeln(s); end.
Начнём с того, чтобы создавать презентацию в MSPowerPoint, необходимо создать слайды во вкладке "Главное" где в левом верхнем углу будет окошко создания слайда, где можно также выбрать шаблон желаемого слайда (титульный),Далее создав определённое количество слайдов мы можем приступить к работе с ними (Программа PowerPoint Обладает широкимфункционалом визуальных функций, чтобы привлекать внимание зрителя), мы можем вставить: звук,картинки,диаграммы,таблицы,видеоклипы и т.д.( и впоследствии настраивать их:воспроизведение,отображение)Можно настроит задний фон для слайдов(можно выбрать из списка шаблонов), и их анимацию для каждого по отдельности(это придаст интереса при просмотре)
// PascalABC.NET 3.3, сборка 1542 от 05.10.2017 // Внимание! Если программа не работает, обновите версию!
uses NumLibABC;
begin var (num,denom):=ReadInteger2('Числитель и знаменатель 1-й дроби:'); var f1:=Frc(num,denom); (num,denom):=ReadInteger2('Числитель и знаменатель 2-й дроби:'); var f2:=Frc(num,denom); f1.Print; Write('* '); f2.Print; Write('= '); (f1*f2).Print end.
Примеры Числитель и знаменатель 1-й дроби: 4 9 Числитель и знаменатель 2-й дроби: 3 8 4/9 * 3/8 = 1/6
Числитель и знаменатель 1-й дроби: 32432424 10213133 Числитель и знаменатель 2-й дроби: 23123 12313123 32432424/10213133 * 23123/12313123 = 749934940152/125755562844359
Числитель и знаменатель 1-й дроби: 15 2 Числитель и знаменатель 2-й дроби: 8 15 15/2 * 8/15 = 4
ИСПОЛЬЗУЕТ Цепь ИЗ "...\Отделы\Иное\";
ПЕР
строка, память: РЯД 100 ИЗ ЗНАК;
сч: ЦЕЛ;
УКАЗ
ЕСЛИ ЧЕТ(ДЛИНА(строка)) ТО
память[0] := строка[0];
память[1] := 0X;
Цепь.Добавить(память, "www");
ОТ сч := 1 ДО ДЛИНА(строка) - 1 ВЫП
память[сч + 3] := строка[сч]
КОН;
память[ДЛИНА(строка) + 3] := 0X
ИНАЧЕ
ОТ сч := 0 ДО ДЛИНА(строка) ДЕЛИТЬ 2 - 1 ВЫП
память[сч] := строка[сч]
КОН;
ОТ сч := ДЛИНА(строка) ДЕЛИТЬ 2 + 1 ДО ДЛИНА(строка) - 1 ВЫП
память[сч - 1] := строка[сч]
КОН;
память[ДЛИНА(строка) - 1] := 0X
КОН
КОН Задание.