Помогите срочно, проболел тему, нужна помощь. Задание 1. Найти произведение цифр...

Question

Помогите срочно, проболел тему, нужна помощь. Задание 1. Найти произведение цифр трехзначного числа.Исправьте программу, запишите правильный вариант.И составить блоксхемуProgram 2pp;Var a,b: integer;BeginRead (b);c:=a mod 10; b:=a mod 100;a:=a div 10;Write (b,c,a);End.

Answer 1

Program 2pp;

Var a,b: integer;

Begin

Read (a);

c:=a mod 10; b:=a div 100;

a:=(a div 10) mod 10;

Write (a*b*c);

End.