var i: word; //Было предпочтительнее использовать byte, //ведь от 3 до 7 считаем, но тип word старее, //а к byte могут придраться
begin SetBrushColor(clBlue); //Проставляем цвет кисти, я не //нашёл функции рисования круга, //где можно было бы указать цвет for i := 3 to 7 do begin FillCircle(200, 200, 10 * i); //Рисуем круг, радиус от 30 до 70 sleep(500); //Поскольку круги в конечном счёте всё равно //затираются более большими, будем выводить //с задержкой end; end.
''' В небоскрёбе n этажей и 1 подъезд, на каждом этаже по 3 квартиры, лифт останавливается только на нечётных этажах. Человек садится в лифт и нажимает номер нужной ему квартиры. На какой этаж дома довезёт лифт человека? '''
n = int(input('n = ')) ap_to = int(input('Номер квартиры: ')) rem_floor = 1 if ap_to % 3 > 0 else 0 floor_ap_to = ap_to // 3 + rem_floor if floor_ap_to > n: raise ValueError('Такой квартиры нет!') elif floor_ap_to % 2 == 0: print('Лифт довезёт человека либо на {} этаж (придётся подняться на 1 этаж по лестнице,'.format(floor_ap_to -1)) print('либо на {} этаж, и на 1 этаж придётся спуститься.'.format(floor_ap_to + 1)) else: print('Лифт довезёт человека на нужный этаж.')
