единичность матрицы и 3 одинаковые цифры Опции

[LP.by]

нада срочна 2 задачки,
1. Дана квадратная матрица А, порядка n. Проверить является ли она единичной.
вот я к ней цикл сделал:

for i : = 1 to n do
 if a[i,i] = 1 then begin
   a[i,i] : = 0;
 for j : = 1 to n do
  if a[i,j] <> 0 then begin
 Writeln('matriza edini4na')
else
 Exit;

плз нада её аформить.

2. Дано n-значное число Р. Верно ли что оно содержит 3 одинаковые цифры??

а па поваду втарой задачки я не знаю

[мисс_граффити]

1. Как вариант - с циклом while, чтобы остановить проверку, как только попадется нарушающий единичность элемент.

Препода - на мыло...

имхо, все было не совсем так...

2. число 333666 будет считаться содержащим 3 одинаковые цифры?
а 33334?

Сообщение отредактировано: мисс_граффити - 10.01.2007 0:44