Определить площадь треугольника по двум сторонам и углу между ними

@настасья23 · Регистрация: 25.12.2010

Студворк — интернет-сервис помощи студентам

1.Определить площадь треугольника по двум сторонам и углу между ними.
2.Найти произведение цифр введенного трехзначного числа.
3.Из чисел A, B, C, D выбрать максимальное.
4.Найти произведение нечетных делителей введенного целого числа.
5.Найти сумму S = sin 1/3 + sin 2/5 + ... (n слагаемых)
6.Задана арифметическая прогрессия 2; 2,8;...Сколько членов прогрессии нужно сложить, чтобы сумма была >20 .
7.Задан массив размером K[1..10]. Сформировать два массива, включая в первый четные элементы исходного массива с нечетными индексами, а во второй нечетные элементы с четными индексами.
8.Задан одномерный массив А[1..20]. Найти среднее арифметическое минимального и максимального элементов массива.
9.Введена строка маленьких латинских букв. Преобразовать ее, превратив маленькие буквы в большие.
10.Обратить введенную строку: abcd -> dcba.

@SuPeR XaKer · 25.12.2010, 15:42

блондинка чем вам помочь то?

@настасья23 · 25.12.2010, 15:45 **[ТС]**

Хоть одну программку написать))))

@SuPeR XaKer · 25.12.2010, 15:48

-V-

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Uses
 crt;
Var
 i,n:integer;
 sum:real;
begin
clrscr;
write('N: ');
readln(n);
sum:=0;
for i:=1 to n do
sum:=sum+(sin(i/(i*2+1)));
writeln('Sum:=',sum);
readkey
end.

@настасья23 · 25.12.2010, 15:55 **[ТС]**

МММ)))Спасибо))а в вашем арсенале нет ничего похожего на 10 прог-му?)))

@SuPeR XaKer · 25.12.2010, 16:02

-X-

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Uses
 crt;
Var
 s,s2:string;
 i:byte;
begin
clrscr;
readln(s);
for i:=1 to length(s) do
s2:=s[i]+s2;
write('S2:=',s2);
readkey
end.

-VI-

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Uses
 crt;
Var
 sum:real;
 kol:byte;
begin
clrscr;
sum:=2;
kol:=0;
repeat
inc(kol);
sum:=sum+0.8;
until sum>=20;
write('Su:=',sum,'; kol:=',kol);
readkey
end.

@настасья23 · 25.12.2010, 16:12 **[ТС]**

ммм((не понятная....

Добавлено через 7 минут
1.Так?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Var
 a,b,l:integer;
 sum:real;
begin
write('a= ');
readln(a);
write('b= ');
readln(b);
write('l= ');
readln(l);
sum:=0;
l:=l*pi/180;
sum:=1/2*a*b*sin(l);
writeln('Sum:=',sum:6:0);
readln
end.

@настасья23 · 27.12.2010, 17:09 **[ТС]**

6ая программка конечно полный бред)))Но все же спасибо)))Зачет сдала успешно)))

@SuPeR XaKer · 27.12.2010, 17:29

6ая программка конечно полный бред))

основания дама?
Опять эти нубские высказывания.
если прогрессия 2 2.8 3.6 4.4 ......
то не верно лишь на один член ряда.Т.е. не 23 а 24.

Pascal
1
kol:=1;

@настасья23 · 28.12.2010, 22:49 **[ТС]**

нек кол-во будет 6))

@SuPeR XaKer · 28.12.2010, 22:53

Последовательность то такая или нет

2 2.8 3.6 4.4 .....

?

@use · 29.12.2010, 03:16

Сообщение от SuPeR XaKer

Последовательность то такая или нет

2 2.8 3.6 4.4 ...

?

Такая.
Вот и складывай ее:

2 + 2.8 + 3.6 + 4.4 + 5.2 + 6.0 = 24

И внимательнее читай условие, когда берешься помогать..

настасья23, +1

@SuPeR XaKer · 29.12.2010, 11:51

use

И внимательнее читай условие, когда берешься помогать..

не ты а вы.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Uses
 CRt;
Var
 sum,l:real;
 kol:integer;
begin
 sum:=0;
 kol:=0;
 l:=2;
repeat
 sum:=sum+l;
 l:=l+0.8;
 inc(kol);
until sum>=20;
writeln(kol);
end.

раз уж мой косяк исправляюсь

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Сборка библиотек SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия SDL 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual. . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .

Определить площадь треугольника по двум сторонам и углу между ними

Решение

Решение

@настасья23 1 / 1 / 0 Регистрация: 25.12.2010 Сообщений: 32

	Определить площадь треугольника по двум сторонам и углу между ними 25.12.2010, 15:36. Показов 4571. Ответов 12 Метки нет (Все метки) 1.Определить площадь треугольника по двум сторонам и углу между ними. 2.Найти произведение цифр введенного трехзначного числа. 3.Из чисел A, B, C, D выбрать максимальное. 4.Найти произведение нечетных делителей введенного целого числа. 5.Найти сумму S = sin 1/3 + sin 2/5 + ... (n слагаемых) 6.Задана арифметическая прогрессия 2; 2,8;...Сколько членов прогрессии нужно сложить, чтобы сумма была >20 . 7.Задан массив размером K[1..10]. Сформировать два массива, включая в первый четные элементы исходного массива с нечетными индексами, а во второй нечетные элементы с четными индексами. 8.Задан одномерный массив А[1..20]. Найти среднее арифметическое минимального и максимального элементов массива. 9.Введена строка маленьких латинских букв. Преобразовать ее, превратив маленькие буквы в большие. 10.Обратить введенную строку: abcd -> dcba. 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,876
	25.12.2010, 15:42
	блондинка чем вам помочь то? 0

@настасья23 1 / 1 / 0 Регистрация: 25.12.2010 Сообщений: 32
	25.12.2010, 15:45 [ТС]
	Хоть одну программку написать)))) 0

@настасья23 1 / 1 / 0 Регистрация: 25.12.2010 Сообщений: 32
	25.12.2010, 15:55 [ТС]
	МММ)))Спасибо))а в вашем арсенале нет ничего похожего на 10 прог-му?))) 0

@настасья23 1 / 1 / 0 Регистрация: 25.12.2010 Сообщений: 32
	27.12.2010, 17:09 [ТС]
	6ая программка конечно полный бред)))Но все же спасибо)))Зачет сдала успешно))) 1

@настасья23 1 / 1 / 0 Регистрация: 25.12.2010 Сообщений: 32
	28.12.2010, 22:49 [ТС]
	нек кол-во будет 6)) 0