Парни выручайте- дана квадратная матрица А(N;N). Заменить элементы главной диагонали нулем (0).

Xимep, begin for X:=0 to N-1 begin A[X,X]=0; end end.

и переменные не забудь объявить:-)

Привет всем! Как сделать чтоб на Пасколе писались русские буквы? А то уже несколько десятков прог наштопал, а все слова написаны по русски, но английскими буквами!

Ну у меня на русский перевести правым Щифт+цтрл, а на английский левый

STE@K, спасибо, помогло!

Эдравствуйте! Я здесь новенький! Решил написать прогу чтоб катеты и гипотенузу считала! Ну что-то не работает! Посмотрите где ошибка! Program ygli; var a,b,c:integer; Begin writeln(""); writeln(""); writeln(""); readln(a,b,c); c:=aa+bb; if c<0 then writeln("") else begin a:=sqrt(cc-bb); b:=sqrt(cc-aa); writeln(a,b,c); end; readln end.

TARAN!, Обьясни, какие должны быть исходные и конечные данные.

Caня:), катеты a,b и гипотенуза c - и исходные , и конечные

DeBuGgEr, не понимаю. Если в исходных данных уже есть и катеты и гипотенуза, то что надо найти?

Caня:), вводишь 3 числа, вместо неизвестных пробел или ввод, потом если гипотенуза<0, токого по логике быть не может и он начинает считать катеты!(У меня пишет ошибку после а:=sqrt(cc-bb);

Как правильно записать на Паскале выражение b=Корень из С в квадрате+A в крадрате