Uses crt;
var s,s1,s2:string;
i,k:integer;
begin
readln(s);
k:=pos(' ',s)-1;
for i:=1 to k do
s1:=s1+s[i];
k:=k+2;
for i:=k to length(s) do
s2:=s2+s[i];
writeln(s2,' ',s1);
end.
Создаешь большой прямоугольник (нужных размеров) через кнопку на верхней панели,делаешь серую заливку,сверху таким же способом делаешь 3 круга (там сначала создается квадрат,а ты в властивостях форми выбираешь circle)и делаешь заливку разных цветов.
{
cin>>nums[i]
if(nums[i]>max)
{
max=nums[i];
maxCount++;
}
}
cout<<maxCount<<endl;
<span>954-459=495 Вот один, и по-моему единственный ответ.</span>
<span>Решение:</span>
<span><span>x y z </span>
<span>- </span>
<span>z y x </span>
<span>____ </span>
<span>z x y </span></span>