Программа вычисляет произведение цифр, заданного пользователем трёхзначного числа.
Решение:
| 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. |