Программирование циклов на Паскале.

+ 0 -

Garovaa

24 окт. 2014 г., 12:57:11 (9 лет назад)

var 
  m1,m2,m5,m10,m50,m100,m500,s:integer;
begin 
m1:=0;
m2:=0; 
m5:=0; 
m10:=0; 
m50:=0; 
m100:=0; 
m500:=0; 
readln(s); 
while s>0 do 
begin   
if s>=500 then   
begin     
s:=s-500;     
m500:=m500+1;   
end   
else     
if s>=100 then     
begin       
s:=s-100;       
m100:=m100+1;     
end     
else       
if s>=50 then       
begin         
m50:=m50+1;         
s:=s-50;       
end       
else         
if s>=10 then         
begin           
s:=s-10;           
m10:=m10+1;         
end         
else           
if s>=5 then           
begin             
m5:=m5+1;             
s:=s-5;           
end           
else             
if s>=2 then             
begin               
m2:=m2+1;               
s:=s-2;             
end             
else             
begin               
m1:=m1+1;               
s:=s-1;             
end; 
end; 
writeln('500р = ',m500); 
writeln('100р = ',m100); 
writeln('50р = ',m50); 
writeln('10р = ',m10); 
writeln('5р = ',m5); 
writeln('2р = ',m2); 
writeln('1р = ',m1);
end.