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

@настасья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.

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

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

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

Решение

Решение

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

	Определить площадь треугольника по двум сторонам и углу между ними 25.12.2010, 15:36. Показов 4526. Ответов 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