Пожайлуста помогите 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.

Не нашли ответ?
Ответить на вопрос
Похожие вопросы