Форум » Обработка целых чисел » Номер 25 (2596) » Ответить
Номер 25 (2596)
Матвей12889: Подскажите пожалуйста в чем может быть ошибка (номер 2596) Ответ выводит 13750( на 200 меньше) [pre2] var i,k,c,d,p,o:integer; begin d:=0; k:=0; for i:=1686 to 9999 do begin if ((i mod 10)mod 2<>0)and (((i mod 100)div 10)mod 2<>0) and (((i div 100)mod 10)mod 2<>0) and ((i div 1000)mod 2<>0) then begin p:=(i mod 10)+ ((i mod 100)div 10)+((i div 100)mod 10)+(i div 1000); k:=k+p; end;end; for c:=10000 to 13276 do begin if ((c mod 10)mod 2<>0) and (((c mod 100)div 10)mod 2<>0) and (((c mod 1000)div 100)mod 2<>0) and ( ((c div 1000)mod 10)mod 2<>0) and ((c div 10000)mod 2<>0) then begin o:=(c mod 10)+ ((c mod 100)div 10)+((c mod 1000)div 100)+((c div 1000)mod 10) and (c div 10000); d:=d+o; end;end; print(k+d); end.[/pre2]
Ответов - 2
Поляков: Это задача 25.93 из основного сборника. На сайте есть авторские решения всех 25-х задач. Попробуйте сравнить его со своим.
OlgaChe1: Матвей12889 пишет: o:=(c mod 10)+ ((c mod 100)div 10)+((c mod 1000)div 100)+((c div 1000)mod 10) and (c div 10000); [pre2]o:=(c mod 10)+ ((c mod 100)div 10)+((c mod 1000)div 100)+((c div 1000)mod 10)+(c div 10000); [/pre2]
полная версия страницы