1) напишите программу (на языке basic) вычисления по длинам двух сторон треугольника и углу между ними длины третьей стороны и двух других углов. 2) напишите программу (на языке basic) для определения подобия: а) двух прямоугольников по двум смежным сторонам; б) двух треугольников по трем сторонам.

👇

Ответ:

двоечник60

20.01.2021

2
а)
INPUT "Ширина первого прямоугольника";A1
INPUT "Длина первого прямоугольника";B1
INPUT "Ширина второго прямоугольника";A2
INPUT "Длина второго прямоугольника";B2
IF A1/A2=B1/B2 THEN PRINT "Фигуры подобны" ELSE PRINT "Нет подобия"

б)
PRINT '"Первый треугольник:"
INPUT "Первая сторона";A1
INPUT "Вторая сторона";B1
INPUT "Третья сторона";C1
PRINT '"Второй треугольник:"
INPUT "Первая сторона";A2
INPUT "Вторая сторона";B2
INPUT "Третья сторона";C2
IF (A1/A2=B1/B2) AND (B1/B2=C1/C2) THEN PRINT "Фигуры подобны" ELSE PRINT "Нет подобия"

4,6(71 оценок)

Открыть все ответы

Ответ:

H3RURG

20.01.2021

1. Окончание срока действия триальной версии (следует приобрести лицензионную копию продукта, а если она была приобретена - переактивировать, обратившись за в техподдержку (адреса и телефоны см. в мини-форуме во Эта надпись появляется тогда, когда вы открываете документы, созданные в более ранних версиях редактора, например, в Word 2003. В этом случае не используются новые возможности редактора, обеспечивая режим совместимости разных версий.

Нужно преобразовать документ в формат Office 2007. Тогда эта надпись исчезнет, но при открытии преобразованного документа в более ранних версиях редактора возникнут проблемы при редактировании, либо уже при открытии документа.

Чтобы преобразовать документ, щелкните по кнопке Office и выберите команду Преобразовать. Откроется диалоговое окно, предупреж дающее о последствиях такого преобразования. Если вы подтвердите преобразование, то заменит / сохранит текущий документ в новом формате.

Если кнопка "Преобразовать отсутствует" - следует сохранить две версии одного документа: одна для старых редакторов, другая в новом формате. Это делается стандартно через выбор команды Сохранить как... .

3. Возможно, сработала защита документа (Вкладка - "Рецензирование" - "Защитить документ" - "Отключить защиту").

4,5(47 оценок)

Ответ:

ryckovan3

20.01.2021

1 задача:

const n=10;
var
min,i: integer;
a: array[1..n] of integer;
begin
randomize;
min:=11;
for i:=1 to n do begin
a[i]:=random(1,10);
write (a[i],' '); // для наглядности. можно удалить
if (i mod 2 =1) and (a[i]<min)
then min:=a[i];
end;
writeln;
writeln ('min = ',min)
end.

Пример:
5 4 7 8 6 2 10 4 9 9
min = 5

2 задача:

const n=10;
var
max,count,i: integer;
a: array[1..n] of integer;
begin
randomize;
max:=0;
count:=0;
for i:=1 to n do begin
a[i]:=random(1,10);
write (a[i],' '); // для наглядности. можно удалить
if a[i]>max
then max:=a[i];
end;
for i:=1 to n do
if max=a[i] then count:=count+1;
writeln;
writeln ('max = ',max);
writeln ('count = ',count);
end.

Пример:
8 5 3 2 2 10 10 9 3 10
max = 10
count = 3

4,8(89 оценок)

Это интересно:

13.09.2021

Как всегда выигрывать спор...

Компьютеры-и-электроника

09.07.2020

Как уничтожить жесткий диск: советы и рекомендации...

Компьютеры-и-электроника

20.11.2020

Как создать простую таблицу стилей CSS с помощью Notepad...

Образование-и-коммуникации

12.06.2021