program ex1;
uses crt;
var i:byte;
code:integer;
dig:word;
sdig:string[16];
dd:array[1..4] of word;
min:word;
begin
clrscr;
sdig:='';
write('Vvedite 4etirexzna4noe 4islo: '); readln(dig);
writeln;
while (dig<999) or (dig>10000) do begin
writeln('Vi vveli ne 4etirexzna4noe 4islo.');
write('Vvedite eshe raz: '); readln(dig);
writeln;
end;
str(dig,sdig);
for i:=1 to length(sdig) do val(sdig,dd,code);
min:=dd[1];
for i:=1 to high(dd) do
if dd<min then min:=dd;
write('MIN cifra v zapisi 4isla ', dig, '= ', min);
readkey;
end.
задачи.2. решить не могу.это ужасно.пожалуйста,помогите...
1.дано натуральное четырехзначное число В.найти самую маленькую цифру в этом числе.считать.что такая цифра только одна.
2.дано натуральное число А.определить произведение всех цифр этого числа.
билась долго и безуспешно.
2.дано натуральное число А.определить произведение всех цифр этого числа.
билась долго и безуспешно.
1.
2.
может написано не самым удачным образом, но все работает. не обессудьте, но я сейчас немного не в том состоянии, в котором надо писать проги)
да и не мог не помочь девушке.
Код:
2.
Код:
program ex2;
uses crt;
var i:byte;
dig:word;
code:integer;
sdig:string[8];
dd:array[1..8] of word;
mlt:word;
begin
clrscr;
sdig:='';
write('Vvedite naturalnoe 4islo: '); readln(dig);
writeln;
str(dig,sdig);
for i:=1 to length(sdig) do val(sdig,dd,code);
mlt:=1;
for i:=1 to length(sdig) do mlt:=mlt*dd;
write('Proizvedenie cifr zapisi 4isla ', dig, '= ', mlt);
readkey;
end.
uses crt;
var i:byte;
dig:word;
code:integer;
sdig:string[8];
dd:array[1..8] of word;
mlt:word;
begin
clrscr;
sdig:='';
write('Vvedite naturalnoe 4islo: '); readln(dig);
writeln;
str(dig,sdig);
for i:=1 to length(sdig) do val(sdig,dd,code);
mlt:=1;
for i:=1 to length(sdig) do mlt:=mlt*dd;
write('Proizvedenie cifr zapisi 4isla ', dig, '= ', mlt);
readkey;
end.
может написано не самым удачным образом, но все работает. не обессудьте, но я сейчас немного не в том состоянии, в котором надо писать проги)
да и не мог не помочь девушке.
Искренне благодарю!!))