Написать программу, которая вычисляет произведение цифр заданного k значного числа. При этом предполагается, что k<=4 - Pascal(Паскаль) var k,p:integer; begin readln(k); p:=1; repeat p:=p*(k mod 10); k:=k div 10; until k=0; writeln(p); end. Похожие записи/страницы:Найти произведение цифр заданного целого четырехзначного числа - Pascal(Паскаль)Найти произведение цифр заданного целого четырехзначного числа - Pascal(Паскаль)Дан массив T(n), nНайти произведение цифр заданного четырехзначного числа - Pascal(Паскаль)Составить программу подсчета числа четных цифр, используемых в записи N-значного числа М - Pascal(Паскаль)Составить программу, которая по заданному положительному целому числу n (длинное целое) находит сумму s и…Написать программу, которая вычисляет количество цифр в заданном натуральном числе - Pascal(Паскаль)Написать программу подсчета произведения цифр числа, делящегося на 3. Определить делится ли заданное число на 3…