Полтора метра - половина от трёх метров. Значит и получится витков в два раза меньше. Ответ 100 / 2 = 50.
12 метров в четыре раза больше чем три. Значит и витков в 4 раза будет больше. Ответ 100 * 4 = 400.
Var a:real;
Begin
Write('a=') ;read(a) ;
Write('f=', 2*a*a+abs(6-a)+293*a) ;
End.
Pascal
program matr;uses CRT;var fl:char;a:array [1..100,1..100] of integer;i,j,m,n,mmax:byte;max:integer;label met;beginmet:clrscr;max:=0;writeln ('Введите размерность матрицы NxM');readln (n);readln (m);randomize;for i:=1 to n do beginfor j:=1 to m do begina[i,j]:=-50+random(101);write (a[i,j]:4);end;{создание и вывод матрицы}writeln;end;writeln;for i:=1 to n do{нахождение максимального элемента}zfor j:=1 to m doif (a[i,j]>max) then beginmax:=a[i,j];mmax:=j;end;for i:=1 to n dowrite (a[i,mmax]:4);writeln;{Вывод столбца}for i:=1 to n do {нахождение одинаковых элементов}for j:=1 to n doif (a[i,j]=max)and(j<>mmax) then begin mmax:=j;write (a[i,mmax]:4);end;writeln ('Для продолжения нажмите любую клавишу,для выхода - "Х"');readln(fl);if (fl <> 'x') then goto met;<span>end.</span>
Прямые углы, все стороны равны, проведённые диагонали равны.