Дано четырехзначное число, если оно кратно 4, то посчитать сумму его цифр, иначе...

Question

Дано четырехзначное число, если оно кратно 4, то посчитать сумму его цифр, иначе посчитать произведение цифр. Составить программу на Паскаль

Comments

Срочно!!!

Answer 1

Var a : Integer;
Begin
  Readln(a);
  If a mod 4 = 0 then Writeln('Сумма цифр: ',a div 1000+a mod 1000 div 100+a mod 100 div 10+a mod 10)
  else Writeln('Произведение цифр: ',(a div 1000)*(a mod 1000 div 100)*(a mod 100 div 10)*(a mod 10));
end.