Получи 5(6.48) я верю в тебя (кст где ты учишься)
var
n,k,s,a,b,l,x,y,m,n1:integer;
Begin
readln(n,k,b,x,y,l,a,m,n1);
Write('а. ');
if(n mod 2 = 0) then
begin
a := n;
while a > 0 do
begin
s := s + a mod 10;
a := a div 10;
end;
if(s > k) then writeln('True') else writeln('False');
end
else writeln('False');
a := n;
s := 0;
Write('б. ');
while(a > 10) do
begin
a := a div 10;
inc(s);
end;
if(s mod 2 = 0) and (n < b) then writeln('True') else writeln('False');
write('в. ');
a:= n;
while a>10 do
a:=a div 10;
if(a = x)and(n mod 10 = y) then writeln('True') else writeln('False');
write('г. ');
a:=n;
s := 1;
while a > 0 do begin
s := s * (a mod 10);
a := a div 10;
end;
if(s < a) and (n mod b = 0) then writeln('True') else writeln('False');
write('д. ');
a := n;
s := 0;
while a > 0 do begin
s := s + a mod 10;
a := a div 10;
end;
if(s > m)and(n mod n1 = 0) then writeln('True') else writeln('False');
End.
<u>План решения</u>
1. Из прямоугольного треугольника, образованного известной стороной b, известной высотой h и стороной с, можно найти угол α по определению синуса: sin(α) = h/b → α = arcsin(h/b);
2. Далее решаем треугольник по известным двум сторонам и углу между ними. Это решение известно из школьного курса.
Из теоремы косинусов: a² = b²+c²-2bc·cos(α) и потом извлекаем квадратный корень из полученного значения.
Из теоремы синусов найдем sin(β) = b·sin(α)/a → β=arcsin(b·sin(α)/a)
Третий угол найти совсем просто: γ=180°-(α+β).
3. Осталось найти значения прочих параметров
Периметр Р = a+b+c
Площадь S = 1/2×c×h
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b,c,h:real;
Write('Ввести b,c,h: '); Read(b,c,h);
var alpha:=arcsin(h/b);
var a:=sqrt(b*b+c*c-2*b*c*cos(alpha));
var beta:=arcsin(b*sin(alpha)/a);
var alphaD:=RadToDeg(alpha);
var betaD:=RadToDeg(beta);
var gammaD:=180-(alphaD+betaD);
var P:=a+b+c;
var S:=h*c/2;
Writeln('a=',a:0:3);
Writeln('A=',alphaD:0:1,', B=',betaD:0:1,', C=',gammaD:0:1);
Writeln('Р=',P:0:3,', S=',S:0:5)
end.
<u>Контрольный пример</u>
Ввести b,c,h: 12.6 14.2 8
a=9.162
A=39.4, B=60.8, C=79.8
Р=35.962, S=56.80000
Колибри пчела и оса умеют летать но Колибри это птица а пчела и оса это насекомые.То что их объединяет
1.Они они питаются цветочным нектаром.
2.Они могут летать.
1)
uses crt;
var a:integer;
begin
for a:=-10 to 10 do
writeln('a=',a,' ',a*a*a:6);
<span>end.
---
2) 10
10</span>
Замечание: контроль правильности ввода не выполняется.
#include <stdio.h>
int main(void) {
int a_8, a_10, a_5, b, c;
printf("Введите число в восьмеричной системе счисления: ");
scanf("%d",&a_8);
b = a_8;
a_10 = 0; c = 1;
while (b>0) {
a_10 += c*(b % 10);
c *= 8;
b /= 10;
}
b = a_10;
a_5 = 0; c = 1;
while (b>0) {
a_5 += c*(b % 5);
c *= 10;
b /= 5;
}
printf("%d(8) = %d(10) = %d(5)",a_8,a_10,a_5);
return 0;
}
Пример:
<span>Введите число в восьмеричной системе счисления: 2014
2014(8) = 1036(10) = 13121(5)</span>