для начала было бы неплохо знать какую конкретно ошибку вы видите.
я лично вижу ошибку в этой строке
e=float(input(e**0.5((b-a)**2)+((d-c)**2))
во-первых, вы пытаетесь возвести е в степень 0,5, хотя е еще не была определена, то есть вы пытаетесь сослаться на пустую
переменную.
во-вторых, у вас после степени стоит сразу скобка, нет знака умножения, деления, ничего, просто сразу стоит скобка. пайтон воспримет это как то, что вызывается некая функция от е**0.5
и в-третьих, как уже сказано в другом ответе, проследите, что все скобки на месте
- !
- ! вот вам меню.
- . я готова сделать заказ.
- да, .
- можно мне кусочек шоколадного торта и чашку зеленого чая?
- конечно. все будет готово через минуту.
- ! рада слышать это.
- вот ваш чай и ваш торт.
- !
- приятного
аппетита.
- !
(через пятнадцать минут)
- извините, сколько мне платить?
- 190 рублей.
- вот, . сдачи не надо.
- , приходите еще!
перевод:
- bună!
- bună! iată un meniu pentru dvs.
- mulțumesc. sunt gata să fac o
comandă.
- da, te rog.
"pot să am o felie de tort de ciocolată și o ceașcă de ceai verde? "
- bineînțeles. totul va fi gata într-un minut.
- mulțumesc! mă bucur să aud.
- iată ceaiul și prăjitura ta.
- mulțumesc!
- apetitul bun.
- mulțumesc!
(după cincisprezece minute)
- scuzați-mă, cât ar trebui să plătesc?
- 190 de ruble.
- aici ești. schimbarea nu este necesară.
- mulțumesc, vino din nou!
uses crt;
type matr=array[1..20,1..20] of integer;
proc=procedure(m:matr;n:byte);
procedure Glav(m:matr;n:byte);
var i:byte;
begin
writeln('Главная диагональ :');
for i:=1 to n do
write(m[i,i]:3,' ');
writeln;
writeln;
end;
procedure Vyvod(m:matr;Gl:proc;n:byte);
begin
Gl(m,n);
end;
var a:matr;
n,i,j:byte;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до 20 n=');
readln(n);
until n in [1..20];
writeln('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(40)+10;
write(a[i,j]:3,' ');
end;
writeln;
end;
writeln;
Vyvod(a,Glav,n);
readln
end.