Ввести с клавиатуры двузначное число. определить, делится ли оно на сумму своих цифр.

Question

Информатика: Ввести с клавиатуры двузначное число. определить, делится ли оно на сумму своих цифр.

danik2012daniweufyv3 · Accepted Answer

Результат работы и листинг программы в приложениях. Написано в PascalABC.NET но должно работать во всех Паскалях. ---------------------------- PROGRAM A20; CONST     max = 100; TYPE     matrix = array[1..max,1..max]of shortint; VAR     ar:matrix;     num:byte;     i,j:byte;     a,b,c:byte;     q:boolean; BEGIN   repeat   //  num := 5;     write( Введите размер матрицы n= );     readln(num);         for i:=1 to num do begin       for j:=1 to num do         read(ar[i,j]);     end;       i:=1;//диагональ...

MOGZ ответил