Переписать программу из Pascal в Python

@dimaldldld · Регистрация: 22.04.2022

Студворк — интернет-сервис помощи студентам

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var 
    x, numDel, i, j: longint;
    d: array[1..4] of longint;
begin
    for i := 185311 to 185330 do begin
        numDel := 0;
        for j := 1 to i do begin
            if i mod j = 0 then begin
                numDel := numDel + 1;
                if numDel > 4 then break;
                d[numDel] := j;
            end;
        end;
        if numDel = 4 then writeln(d[1], ' ', d[2], ' ', d[3], ' ', d[4]);
    end;
end.

@anton78spb · 22.04.2022, 22:32

dimaldldld,

Python
1
2
3
4
5
6
7
8
9
10
11
d = [None for _ in range(4)]
for i in range(185311, 185331):
    num_del = 0
    for j in range(1, i + 1):
        if i % j == 0:
            num_del += 1
            if num_del > 4:
                break
            d[num_del - 1] = j
    if num_del == 4:
        print(*d)

Code
1
2
3
1 2 92657 185314
1 47 3943 185321
1 241 769 185329

Новые блоги и статьи Все статьи Все блоги /
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .

Опции темы