var
s:real;
begin
Write('Площадь окружности: '); Read(s);
Writeln('Радиус окружности равен ',sqrt(s/Pi):0:5)
end.
Ам, ну там сверху есть "выравнивалки"
Попробуй поэкспериментировать с полосками ("выравнивалками")
#include <iostream>
#include <string>
#include <time.h>
using namespace std;
void main()
{
<span> srand(time(NULL));
</span><span> int n,k=0,k1=4;</span><span>
cin >> n;</span><span> //вводишь количество символов
string *s=new string [n];</span><span>
for (int i = 0;i < n;++i)
</span><span> {
</span><span> while (k == k1)</span><span>
{
</span><span> k = rand() % 3;
</span><span> }</span><span>
switch (k)</span><span>
{
</span><span> case 0:s[i] = '0';cout << s[i];break;
</span><span> case 1:s[i] ='1';cout << s[i];break;</span><span> //вместо 0,1,2 пишешь свой алфавит .
case 2:s[i] ='2';cout << s[i];break;</span><span>
}</span><span>
k1 = k;</span><span>
}</span>
<span> system("pause");
</span><span>}</span>