Вопрос по информатике:
Трамвайный билет имеет шестизначный номер(от 100000 до 999999). Выяснить, является ли билет "счастливым". Билет назовем "счастливым", если первая и последняя цифра билета являются натуральными ( т.е. делятся на 1 и на само себя ).
РЕШЕНИЕ С ПОМОЩЬЮ ФУНКЦИЙ DIV + MOD + циклы.
Буду очень благодарен.
- 02.10.2017 07:19
- Информатика
- remove_red_eye 1183
- thumb_up 85
Ответы и объяснения 1
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.
- 03.10.2017 09:06
- thumb_up 66
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.