Uses GraphABC;
begin
LockDrawing;
for var i:=1 to 800 do
begin
Window.Clear;
Brush.Color := clGray;
FillRectangle(i+10,90,i-110,430);
Brush.Color := clRed;
Ellipse(i,100,i-100,200);
Brush.Color := clYellow;
Ellipse(i,210,i-100,310);
Brush.Color := clGreen;
Ellipse(i,320,i-100,420);
Redraw;
Sleep(1);
end;
for var i:=1 to 900 do
begin
Window.Clear;
Brush.Color := clBlack;
Ellipse(i,100,i-200,300);
Brush.Color := clWhite;
Ellipse(i-1,101,i-199,299);
Brush.Color := clRed;
Ellipse(i-20,120,i-180,280);
Brush.Color := clWhite;
FillRectangle(i-50,180,i-150,220);
Redraw;
Sleep(1);
end;
end.
Обычное дело, сначала инициализировал массив.
Вывел его, потом обычным вложенным циклом проверил всё.
Думаю на счёт того как я проверял вопросов не будет.
Объясню, что же означает строка "if (neg&&a) break;"
Это значит, что если мы уже нашли негативное число и число равное А, то наш цикл прекращает работу ибо он уже нам не нужен.
Microsoft Windows: XP, Vista, 2003 Server;
ОС на базе UNIX: IBM AIX, Hewlett Packard HPUX и Sun Solaris;
BSD - Free BSD;
ОС на базе Linux (много разновидностей);
ОС Macintosh X;
Частные системы, являющиеся собственностью частной компании, кроме Unix: IBMOS/400, z/OS.
Sub Zadanie()
n = CInt(InputBox("n ="))
for i = 1 to n
t = i
s = 0
Do While t > 0
s = s + (t mod 10)^3
t = t \ 10
Loop
if i=s then MsgBox i
next
End Sub
1) 101010 (2) ⇒ 101 010 (2) = 52 (8)
52 (8) = 5х8+2=42 (10)
42 / 16 = 2 и 10 остаток. ⇒ 42 (10) = 2А (16)
2) 127 (8) = 1 010 111 (2)
127 (8) = 1x8^2+2x8+7=64+16+7=87 (10)
87 / 16 = 5 и 7 остаток. ⇒ 87 (10) = 57 (16)
3) 321 (10) / 16 = 20 и 1 остаток. 20 / 16 = 1 и 4 остаток. ⇒ 321 (10)=141 (16)
141 (16) = 1 0100 0001 (2)
1 0100 0001 (2) = 101 000 001 (2) = 501 (8)
4) 3А (16) = 3х16+10 = 48+10 = 58 (10)
3А (16) = 11 1010 (2)
11 1010 (2) = 111 010 (2) = 72 (8)
Итого в строках таблицы
101010 52 42 2А
1010111 127 87 57
101000001 501 321 141
111010 72 58 3А
