Cумма = Стоимость одного часа * Количество часов + Стоимость расходных материалов
Итого = ∑Сумма
т.е. для суммы: F2 = $C2*$D2+$E2 (и растягиваешь на весь столбец)
Итого: СУММ(G2:G6)
Const
pi=3.14159265359;
function Angle(x:real):real;
{ возвращает угол в градусах по значению его синуса }
begin
Angle:=ArcTan(x/Sqrt(1-x*x))*180/pi;
end;
var
a,b,c,h,alpha,beta,gamma,S,P:real;
begin
Writeln('Введите a,b,h: '); Read(a,b,h);
c:=Sqrt(a*a-h*h)+Sqrt(b*b-h*h);
P:=a+b+c;
S:=h*c/2;
alpha:=Angle(h/b);
beta:=Angle(h/a);
gamma:=180-alpha-beta;
Writeln('c=',c:0:5);
Writeln('alpha=',alpha:0:3,', beta=',beta:0:3,', gamma=',gamma:0:3);
Writeln('P=',P:0:5,', S=',S:0:5)
end.
<u>Примеры</u>
Введите a,b,h:
5 5 3
c=8.00000
alpha=36.870, beta=36.870, gamma=106.260
P=18.00000, S=12.00000
Введите a,b,h:
5 5 4
c=6.00000
alpha=53.130, beta=53.130, gamma=73.740
P=16.00000, S=12.00000
Вот на фото, только здесь 8 слов
237_10 = 11101101_2
199_10 = 11000111_2
60_10 = 00111100_2
203_10 = 11001011_2
11101101110001110011110011001011
Program PrimeNumber;
Uses Crt;
var i,f,n:integer;
begin
clrscr;
write('Введите число:');
readln(n);
f:=0;
for i:=2 to trunc(sqrt(n)) do
if (n mod i)=0 then f:=1;
if (f=0) then writeln('Число является простым')
else writeln('Число не является простым');
readkey;
end.