Ответ:
uses GraphABC;
var
a: boolean;
begin
SetBrushColor(clBlue);
SetGradientBrushSecondColor(clRed);
SetPenMode(2);
FillRect(100,100,300,300);
end.
Объяснение:
Удачи в Сириусе)
n, k, m = map(int, input().split())
counter = 0
while k < n:
ost = n // k
counter += ost * (k // m)
n -= ost * (k // m) * m
print(counter)
1) 40×40=1,600 (симв.) - на одной стр
2) 1,600×64=102,400 (симв.) - во всей статье
8 бит = 1 байт
3) 102,400×1=102,400 (байт) - размер статьи
Ответ: 102,400 байт
Процессор предназначен для обработки данных и управления работой компьютера
P.S ( Ставь лучший ответ ;) Спасибо )
Function Nod(a,b:integer):integer;
begin
if a>b then Nod:=Nod(a-b,b)
else
if a<b then Nod:=Nod(a,b-1)
else Nod:=a;
end;