Построй на экране с исполнителя Чертёжник квадрат, длину его стороны введи с клавиатуры и рассчитай площадь этого квадрата.
ДиалогКвадрат
{
int d;
вывод "Введите длину стороны квадрата";
ввод ;()
Квадрат ( d );
вывод "Площадь квадрата со стороной ",d,
" равна ",() ;
}
Квадрат ( int d)
{
опусти_перо;
вектор ( 0, d); вектор (
, 0 );
вектор ( 0, - d ); вектор ( -d , 0 );
подними_перо;
ОТВЕТ ПОД ВО НАПИШИТЕ
ответ:Семь чудес Казахстана. Первое чудо Казахстана это наскальные изображения урочища Тамгалы. Их обнаружила экспедиция Института истории в 1957 году. Второе чудо Казахстана это Золотой человек. Уже сама находка Золотого человека произвела фурор в научном мире. Третье чудо Казахстана является домбра. Во время раскопок города Койкырылган около Арала нашли скульптуру глиняного человека с домброй в руках, датируемый третьим-четвёртым веком до н.э. Четвёртое чудо это подземные мечети Мангыстау. Находятся в труднодоступных местах полупустынной зоны Мангистау. Климат здесь жёсткий-жгучее солнце,песчаные бури, что и заставило древних жителей полуострова искать уединения в скалах. Мавзолей Ходжи Ахмета Яссауи. Построенный в городе Туркестане в 1396-1399 годы по приказу эмира Тимура персидскими мастерами, мавзолей является храмом-шедевром центральноазиатского зодчества, собравшим в себе архитектурные наследия веков. В июне 2003 года мавзолей Ходжи Ахмета Яссауи внесён в список Мирового наследия ЮНЕСКО. Юрта. С древних времён юрта практически не претерпела серьёзных изменений. Байтерек. Комплекс Астана-Байтерек сооружён по образцу эскиз-проекта президента Казахстана Нурсултана Назарбаева под влиянием казахской народной сказки о богатыре Ер-Тостике.
Объяснение:Надеюсь написала то что нужно..
var n, i, x, min: integer;
begin
n:=12; //задаем количество чисел.
min:=16;//присваиваем минимум по правилу:"Минимуму присваиваем самое большое число".
Randomize;
for i:=0 to n-1 do //цикл для рандома 12 чисел. Можно написать " for i:=1 to n do"
begin
x:=Random(31)-15; //присваиваем перемененной "x" рандомное значение из диапазона [-15;15].
Writeln(x); //выводим значение "x".
if (min > x) and (x mod 2 <> 0) then //если минимум больше полученного "x" и "x" - нечетный, то
min:=x; //минимуму присваиваем значение "x".
end;
Writeln('Наименьшее нечетное число последовательности: ',min); //выводим ответ.
end.