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

130

170

Посмотреть ответы 2

Ответы на вопрос:

kagger07

Информатика

4,4(95 оценок)

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.