А если у музыканта не ту музыкального инструмента ,то он закачевает на компьютер а который нужен инструмент!!!!¡!
понял дружок,пирожок?
Program enot;
Var a: array [1..2] of integer;
i:integer;
begin
for i:= 1 to 2 do
begin
a[i]:=random(3);
writeln(a[i]);
end;
<span>end.</span>
<em>// PascalABC.NET 3.2, сборка 1341 от 20.11.2016</em>
begin
var s:=ReadlnString('->');
var a:=RegEx.Matches(s,'\s([бвгджзйклмнпрстфхцчшщ]+)\s',
RegexOptions.IgnoreCase);
foreach var w in a do Writeln(w.ToString.Trim);
end.
<em>// PascalABC.NET 3.2, сборка 1341 от 20.11.2016</em>
begin
ReadlnString('->').ToWords.Where(w->Pos(w[1],'0123456789')=0).Println
end.
Var a:integer;
s:real;
begin
readln(a);
case a of
1: begin s:=pi*a*a; writeln(s); end;
2: begin s:=a*a; writeln(s); end;
3: begin s:=a*a*sqrt(3)/4; writeln(s); end;
else writeln('нужно ввести число 1, 2, 3');
end;
<span>end.</span>