переведите в деситичные и двуичные! и желательно побыстрее в 10-тичные 9,910 в 10-тичные 1,010 в 2-ичные 110,110 в 2-ичные очень
130
473
Ответы на вопрос:
Program pretty; var count, i, d1, d2, d3, d4, d5, d6: integer; const min = 189980; max = 205505; begin count : = 0; for i : = min to max do begin d1 : = i div 100000; d2 : = i mod 100000 div 10000; d3 : = i mod 10000 div 1000; d4 : = i mod 1000 div 100; d5 : = i mod 100 div 10; d6 : = i mod 10; if ( (d6 * 100000) + (d5 * 10000) + (d4 * 1000) + (d3 * 100) + (d2 * 10) + d1 ) = i then count : = count + 1; end; writeln('в промежутке от ', min, ' до ', max, ' ', count, ' счастливых билетов'); end.
Популярно: Информатика
-
zadyriakaartem17.02.2022 05:05
-
katyatyan2003ozrqxb22.10.2020 08:36
-
EdwardLab16.02.2023 23:17
-
vwvwvwvwvwv05.03.2022 16:08
-
Вettу25.05.2021 00:42
-
Ооггод27.10.2021 13:05
-
1171531.10.2021 15:15
-
Lybasha714.09.2021 09:41
-
veronikatulene17.01.2023 20:33
-
ELiNa9865374216.10.2021 00:37