Var
c.d:byte;
begin
writeln ('Введите ваш возраст');
readln (c);
D:=18-c
if c>17 then writeln ('Вы достаточно взрослы, чтобы голосовать');
if c<18 then writeln ('Вы слишком малы, чтобы голосовать, вы сможете голосовать через',d,'лет');
readln;
end.
У крота больше всего развито осязание, т. к. он ведёт подземный образ жизни. Особенно хорош крот-звездонос.
Два решения.
1. Токарев - плотник, Плотников - слесарь, Слесарев - токарь.
2. Токарев - слесарь, Плотников - токарь, Слеварев - плотник.
1. Когда знаешь не хуже учителя, а считать символы лень
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
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.