Надо решить две задачи. Очень нужно. Заранее говорю всем спасибо.
1.Ввести шестизначное число. Определить, кратное ли это число 9. ( По признаку делимости на 9: число делится на 9, если сумма цифр делится на 9).
2.Дан двухмерный массив. Найти
а) наибольшее из значений элементов первой и последней строки;
б) сумму наибольших значений элементов ее строк;
в) строку с наибольшей и наименьшей суммой элементов.
Вывести на печать найденные строки и суммы их элементов.
Полная версия: Теория чисел и двумерные массивы
Код
var
b,a,sum:integer;
begin
read(a);
sum:=0;
while a >0 do
begin
b:= a mod 10;
sum:=sum+b;
a:= a div 10;
end;
if sum mod 9=0 then
write( sum,'Delitsya')
else
write( sum,'Ne Delitsya');
end.
b,a,sum:integer;
begin
read(a);
sum:=0;
while a >0 do
begin
b:= a mod 10;
sum:=sum+b;
a:= a div 10;
end;
if sum mod 9=0 then
write( sum,'Delitsya')
else
write( sum,'Ne Delitsya');
end.
ОZZЯ спасибо! 
Студентик13
Посмотри правленный вариант, в 1-м была ошибка
Посмотри правленный вариант, в 1-м была ошибка
OZZЯ я уже сам исправил. Но всеравно спасибо. 
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.