1. Когда знаешь не хуже учителя, а считать символы лень // PascalABC.NET 3.2, сборка 1338 от 16.11.2016 begin var a:='моя Беларусь'.ToWords; Writeln(a[0]+' родина '+a[1]) end.
2. Когда знаешь кое-что в Паскале, а считать символы лень const s='моя Беларусь'; var i:integer; begin i:=Pos(' ',s); Writeln(Copy(s,1,i),'родина ',Copy(s,i+1,Length(s)-i)) end.
3. Когда не знаешь почти ничего const s='моя Беларусь'; begin Writeln(Copy(s,1,4),'родина ',Copy(s,5,8)) end.
Салат оливье. ингредиенты 1 баночка зеленого горошка (400г) 300 г мяса 4 яйца 350 г картофеля 100 г соленых или маринованных огурцов 150 г лука соль майонез алгоритм приготовления: 1.мясо отварить до готовности (варить около 40 минут после закипания) . 2.остудить. 3.лук мелко покрошить. 4.залить его кипятком и оставить на 10 минут, затем воду слить, лук промыть в холодной воде. 5.мясо нарезать кубиками. 6.картофель почистить, нарезать кубиками. 7. яйца мелко покрошить. 8.огурцы мелко нарезать. 9.смешать картофель, мясо, лук, горошек (воду слить) , яйца, огурцы. 10.посолить. 11. заправить майонезом. 12. украсить по вкусу, например зеленым горошком
// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
var a:='моя Беларусь'.ToWords;
Writeln(a[0]+' родина '+a[1])
end.
2. Когда знаешь кое-что в Паскале, а считать символы лень
const
s='моя Беларусь';
var
i:integer;
begin
i:=Pos(' ',s);
Writeln(Copy(s,1,i),'родина ',Copy(s,i+1,Length(s)-i))
end.
3. Когда не знаешь почти ничего
const
s='моя Беларусь';
begin
Writeln(Copy(s,1,4),'родина ',Copy(s,5,8))
end.