Николай Терехов
Информатика. Паскаль.
Помогите на турбо паскале решить и ввести последующую задачу:
Найдите произведение цифр 3-х значного числа введенного с клавиатуры.
Помогите на турбо паскале решить и ввести последующую задачу:
Найдите произведение цифр 3-х значного числа введенного с клавиатуры.
var
a,b:integer;
begin
writr('Введите число');
readln (a);
b:= a mod 100;
a:= (a div 100) * (b div 10)*(b mod 10);
write('Ответ',a);
end
mod - остаток от деления
div деление нацело в случае ошибки просто a/100