Var s:string; i:integer;begin readln(s); for i:=1 to length(s)-1 do if s[i]+s[i+1]='му' then begin delete(s,i,2); insert('ло',s,i); end; writeln(s);end.
http://mojainformatika.ru/paskal/uroki-paskal-stroki/118-standartnye-proczedury-i-funkczii-primenyae...
Audi; BMW; Volkswagen; Datsun; KIA
<em>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(31,16,27); a.Println;
var s:=a.Select((x,i)->(x,i)).OrderBy(x->x[0]).Select(x->x[1]+1);
Write('Семь самых холодных дней: '); s.Take(7).Println;
Write('Семь самых жарких дней: '); s.TakeLast(7).Println
end.
<u>Пример</u>
17 17 25 27 22 26 22 23 26 26 25 16 21 25 22 17 20 19 16 19 21 22 19 16 21 27 22 24 22 24 22
Семь самых холодных дней: 12 19 24 1 2 16 18
Семь самых жарких дней: 11 14 6 9 10 4 26
Ну по стандарту показать примеров 10 и решение столбиком...
преобразование (перевод) Из 16/10/8 систем - столбиком
,а обратно умножением со степенями, ну общем всё как по рецепту...
Правда ему ещё надо объяснить как решать столбиком, как делить\множить\складывать\вычитать и что такое степень...
Ну и общую теорию что такое системы и какие бывают...