Для проектирования проектов.
1)AB016÷10011110=0.015774235328
2)137738-531116=111011000101102
Создаешь цикл, и каждые допустим 100 точек, делаш поворот вправо или влево на 60°. Цикл повторять 3 раза. создаешь цикл, и каждые допустим 30 точек, делаш поворот вправо или влево на 30°. Цикл повторять 6 раз.
//PascalABC.Net 3.0, сборка 1064
var
n:integer;
i,d:byte;
b:array[0..9] of boolean;
fail:boolean;
begin
Write('Введите четырехзначное натуральное число: ');
Read(n);
for i:=0 to 9 do b[i]:=False;
while (n>0) and (not fail) do begin
d:=n mod 10;
if b[d] then fail:=True else b[d]:=True;
n:=n div 10
end;
if fail then Writeln('В числе есть одинаковые цифры')
else Writeln('В числе нет одинаковых цифр')
end.
<em><u>Тестовое решение:</u></em>
Введите четырехзначное натуральное число: 1263
В числе нет одинаковых цифр
Введите четырехзначное натуральное число: 1315
В числе есть одинаковые цифры