Пожайлуста помогите 10 задачу по ИВТ срочно это очень важно умоляю!!!!!!
Пожайлуста помогите 10 задачу по ИВТ срочно это очень важно умоляю!!!!!!
Ответ(ы) на вопрос:
Гость
Если программа,то вот:
var a: 1000..9999; a1, a2, a3, a4: 1..9;//Цифры числаbegin writeln('Введите четырехзначное число'); readln(a); a4:= a mod 10; //Последняя цифра a3:= (a mod 100) div 10; a2:= (a mod 1000) div 100; a1:=a div 1000;//Первая слева цифра writeln('Произведение цифр числа: ',a1 * a2 * a3 * a4);end.
Не нашли ответ?
Похожие вопросы