Проболел тему, нужна . 1. найти произведение цифр трехзначного числа. исправьте программу, запишите правильный вариант. и составить блоксхему program 2pp; var a,b: integer; begin read (b); c: =a mod 10; b: =a mod 100; a: =a div 10; write (b,c,a); end.
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.