Помогите срочно, проболел тему, нужна помощь. Задание 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 (b);
c:=a mod 10; b:=a mod 100;
a:=a div 10;
Write (b,c,a);
End.
Answers & Comments
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.