Procedure ABCD(Const A:real; Var B,C,D:real);
Begin
B:=A*A;
C:=B*A;
D:=C*A;
End;
Var
A,B,C,D:real;
Begin
Write('A = ');ReadLn(A);
ABCD(A,B,C,D);
WriteLn(A,' ',B,' ',C,' ',D);
End.
Пример вычислений для 10-ти разных чисел:
A = 1
1 1 1 1
A = 2
2 4 8 16
A = 3
3 9 27 81
A = -10
-10 100 -1000 10000
A = 3.141592
3.141592 9.869600294464 31.0062573282858 97.4090099724839
A = 111
111 12321 1367631 151807041
A = 6.66
6.66 44.3556 295.408296 1967.41925136
A = -2.718121812
-2.718121812 7.38818618487016 -20.0819900202127 54.5852951023063
A = 789456123
789456123 6.23240970142191E+17 4.92021399983213E+26 3.8842930686378E+35
A = 123456789
123456789 1.52415787501905E+16 1.88167637178915E+24 2.32305722798259E+32
Program p_2;
var
a : array[1..10,1..10] of integer; // двумерный массив.
i, j, p, o : integer;
begin
// Тут считаем,что массив уже получен
for i := 1 to 10 do
begin
p := 0;
o := 0;
for j := 1 to 10 do
if (a[i,j] > 0)
then p := p + 1
else o := o + 1;
if(o = p) then
for j := 1 to 10 do
write(a[i,j], ' ');
end;
end.
Решение Pascal
var n: integer;beginassign(input,'input.txt');reset(input);assign(output,'output.txt');rewrite(output); readln(n); writeln(n); close(input); close(output);end.
Иванов , Петров, Сидоров
Сидоров, Петров, Иванов
Петров, Иванов,Сидоров
Петров, Сидоров, Иванов
Сидоров,Иванов, Петров.
Иванов, Сидоров, Петров.
Сидоров,Петров,Иванов
Делаешь один большой круг. Выделяешь его и копируешь. Копию немного уменьшаешь и помещаешь внутрь 1 ого круга. Затем выделяешь эти 2 круга , копируешь и вставляешь внутрь первых 2 . И так далее...
