Определите вид ветвления (полное или неполное) и результат выполнения программы:

1# Счастливое число
2a=49
3
4if a % 7 == 0 or a % 13 == 0
5print("Happy")
6else:
7print("Better use another")
8
по быстрому у меня сор

Question

Информатика: Определите вид ветвления (полное или неполное) и результат выполнения программы: 1# Счастливое число 2a=49 3 4if a % 7 == 0 or a % 13 == 0 5print( Happy ) 6else: 7print( Better use another ) 8​ по быстрому у меня сор

missvaleria2 · Accepted Answer

uses
GraphABC;

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.

MOGZ ответил