Трамвайный билет имеет шестизначный номер(от 100000 до 999999). Выяснить, является ли билет "счастливым". Билет назовем "счастливым", если первая и последняя цифра билета являются натуральными ( т.е. делятся на 1 и на само себя ).

РЕШЕНИЕ С ПОМОЩЬЮ ФУНКЦИЙ DIV + MOD + циклы.

Буду очень благодарен.

1

Ответы и объяснения

Лучший Ответ!
2012-04-26T22:16:01+04:00

program dl9_relay;

var i,a,t ,r,n,s,s2,h,h2 :integet; 

begin

writeln ('Vvedit # bileta');

readln (a);

t:=a div 100000;

r:=a mod 100000 mod 10000 mod 1000 mod 100 mod 10;  {барыжна строчка;)  }

n:=9; s:=0; s2:=0;

for i:=1 to n do begin       

h:=t mod i; if h=0 then s:=s+1;

h2:=r mod i;  if h2=0 then s2:=s2+1;

end;

if (h=2) and (h2=2) then writeln ('Bilet shasliviy');

else writeln ('Bilet obichniy tramvayniy=)');

readln

end.