Регистрация
panda365
19.02.2021 19:52
Информатика
Есть ответ 👍

Зделайте задания от 1 до 5 в програнному середовище Пайтон

276
281
Посмотреть ответы 1

Ответы на вопрос:

akink2017
akink2017
4,7(80 оценок)
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.

Популярно: Информатика