Возникают ошибке при вызове функции

@Святой Ёжик · Регистрация: 30.04.2011

Author24 — интернет-сервис помощи студентам

Получить все шестизначные счастливые номера. Счастливым называется такое шестизначное число, что сумма его первых трех цифр равна сумме его последних трех цифр. (Определить функцию для расчета суммы цифр трехзначного числа.)

Помогите разобраться с этой проблемой)

Fortran

program sam3
  integer i,j
   do i=100,999
    do j=100,999
     if(summa(i)==summa(j)) write(*,*) i*1000+j
    end do
   end do
  write(*,*)     
 
  contains
    integer function summa(a)
      integer k,p
      summa=0
      do 
        k=mod(p,10)
        summa=summa+k
       a=a/10
               end do
    end function summa
end

Добавлено через 20 часов 20 минут
Error: The type of the actual argument differs from the type of the dummy argument. [I]
if(summa(i)==summa(j)) write(*,*) i*1000+j
Error: The intrinsic data types of the arguments must be the same. [MOD]
k=mod(a,10)
Ошибки появляются вот такого вида.
Очень нужно решить эту задачу . помогите пожалуста)

	30.04.2011, 20:58