3 года назад

Как при помощи смещения на вектор в кумире, исполнитель чертежник, нарисовать ромб с диагоналями 3х3 ?

1 ответ:

0 0

Алг Ромб
нач
сместиться на вектор (0,1.5)
опустить перо
сместиться на вектор (1.5,1.5)
сместиться на вектор (1.5,-1.5)
сместиться на вектор (-1.5,-1.5)
сместиться на вектор (-1.5,1.5)
поднять перо
кон

Читайте также

Написать таблицу перевода расстояний из дюйма в сантиметр для значений от 1 до 10 дюймов с шагом 1. помогите пожалуйста

Murljashka [212]

Var i:integer;
begin
writeln('Дюймы См');
for i:=1 to 10 do
writeln(i:3,' ',2.54*i:5:2);
end.

Результат:
Дюймы См
1 2.54
2 5.08
3 7.62
4 10.16
5 12.70
6 15.24
7 17.78
8 20.32
9 22.86
10 25.40

0 0

4 года назад

На рисунке – схема дорог, связывающих города A, B, C, D, E, F, G H. По каждой дороге можно двигаться только в одном направлении,

Евгений 25

Ровно четырнадцать путей.

0 0

4 года назад

Пусть вводится n чисел с клавиатуры определить кол-во нечетных чисел в массиве и произведение отрицательных чисел (составить про

Lanaiiii [2]

Sub Calculate()
Dim coll As Collection
Dim i As Integer
Dim sum As Double
Dim negative As Integer
Dim composition As Integer
negative = 0
composition = 1
Set coll = New Collection
sum = 0
n = CInt(InputBox("Введите количество чисел", "Ввод", "", 2000, 2000))
For i = 1 To n
elmnt = CInt(InputBox(i & " число", "Ввод", "", 2000, 2000))
coll.Add elmnt
sum = sum + elmnt
Next i

For i = 1 To coll.Count
If (coll.Item(i) < 0) Then
negative = negative + 1
End If
If (coll.Item(i) Mod 2 = 1) Then
composition = composition * coll.Item(i)
End If
Next i
MsgBox "Количество отрицательных = " & negative & vbCrLf & "Произведение нечетных = " & composition & vbCrLf, vbOKOnly, "Результаты"
End Sub

0 0

4 года назад

Имеются двухлитровая и пятилитровая банки. Как сделать так,чтобы,в одной из оказался ровно один литр воды?

Carmina [47.2K]

Налить в 5литровую банку воды, перелить из нее в 2литровую, отсанется 3 литра, и ещё раз перелить в 2литровую, останется 1 литр

0 0

4 года назад

Дано трехзначное число составить программу которая определят кратно ли 3 произведение его цифр ( на языке паскаль)

ya ya [6]

Var
a, b : integer;
begin
b:=1;
write('a?');
readln(a);
a := abs(a);
while a > 0 do
begin
b := b * a mod 10;
a := a div 10;
end;
if b mod 3 =0 then writeln('да')
else writeln('нет');
end.

0 0

3 года назад

Прочитать ещё 2 ответа