Найти произведение всех цифр заданного четырехзначного числа.

Для решения данной задачи необходимо вспомнить операторы div и mod. Div — целочисленное деление, mod — остаток от целочисленного деления.

Используя эти операторы выделяем цифры четырехзначного числа и находим их произведение:

program z_9;
var n, n1, n2, n3, n4: integer;
begin
  write('Введите черытехзначное число: ');  read(n);
  n1:=n mod 10;
  n2:=(n div 10) mod 10;
  n3:=(n div 100) mod 10;
  n4:=(n div 1000) mod 10;
  write('Произведение = ',n1*n2*n3*n4);
end.
Текст задачи:
Информатика. 10 класс. Базовый уровень. (Семакин И. Г., Хеннер Е. К., Шеина Т. Ю.)
Работа 3.1, Уровень 2, Задача №9

Автор:

Оцените статью, это очень поможет развитию сайта.

Найти произведение всех цифр заданного четырехзначного числа
Средняя оценка 5 (100%), голосов - 1