Вопрос пользователя:
Трамвайный билет имеет шестизначный номер(от 100000 до 999999). Выяснить, является ли билет “счастливым”. Билет назовем “счастливым”, если первая и последняя цифра билета являются натуральными ( т.е. делятся на 1 и на само себя ).
РЕШЕНИЕ С ПОМОЩЬЮ ФУНКЦИЙ DIV + MOD + циклы.
Буду очень благодарен.
Илюха отвечает:
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.