Программа вычисляет произведение цифр, заданного пользователем трёхзначного числа.
Решение:
|
1
2 3 4 5 6 7 8 9 10 11 12 13 14 |
program line_6;
uses crt; var a, pr: integer; begin clrscr; write(‘a = ‘); readln(a); pr:=1; pr:=pr*(a div 100); pr:=pr*(a mod 10); a:=a div 10; pr:=pr*(a mod 10); write(‘Произведение цифр = ‘, pr); readkey; end. |