Постройте четыре точки А, В, С и Д по следующему условию: АВ = 8 см, АС = 4 см, СВ = 8 см, AД = 6 см, ДB = 4 см, точки С и Д лежат по разные стороны от прямой АВ. Измерьте расстояние между точками С и Д. ---------------------------------------------------------------------------------------------------------
Чертим прямую. На прямой ставим две точки А и В на расстоянии 8 см друг от друга. Циркулем рисуем окружность с радиусом 4 см с центром в точке А по одну сторону от прямой АВ. Из точки В чертим окружность с радиусом 8 см (по эту же сторону от прямой АВ). Место пересечения окружностей и есть точка С. По другую сторону от прямой АВ чертим окружность с радиусом 6 см с центром в точке А. Другую окружность радиусом 4 см с центром в точке В. Место пересечения окружностей и есть точка Д. Измеряем расстояние между точками С и Д = 8 см.
Program Ranea15Ranea_1; uses crt; var i,p:integer; begin writeln('*** Alphaues is thinking... ***'); p:=1; for i:=-10 to 20 do p:=p*i; writeln('Модуль произведения чисел от -10 до 20 равен ',abs(p)); end.
Program Ranea15Ranea_2; uses crt; const n=20; var a:array [1..n] of integer; i,pos:integer; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln(); randomize; {заполняем массив} for i:=1 to n do begin a[i]:=random(101)-50; write (a[i]:4); end; writeln(); {ищем положиетельные элементы, заменяем их нулями, и считаем их количество} pos:=0; for i:=1 to n do begin if a[i]>0 then begin a[i]:=0; pos:=pos+1; end; end; {выводим результат} writeln(); writeln(' Заменено ',pos,' положительных элементов'); end.
У одной: 94 ( И у в второй тоже)
Одна: 75,75 (Осталось
2 : 67,52.