Найти произведение цифр четырехзначного целого числа
Категория: Delphi/Pascal
2011-09-06 23:40:16
code: #pascal
- program z_number;
- uses crt;
- var n,pr:word;
- begin
- clrscr;
- repeat
- writeln('Введите четырехзначное целое число');
- readln(n);
- if (n<999) or (n>10000) then
- writeln('Число должно быть четырехзначным');
- until(n>999)and(n<10000);
- pr:=1;
- while n<>0 do
- begin
- pr := pr*(n mod 10);
- n:= n div 10;
- end;
- writeln('Произведение цифр данного четырехзначного числа ',pr);
- readln;
- end.
Поделиться: