Var a, n, k, t, s:integer;
Bedin
Readln(n)
S:=0;
For i:=1 to n do
If i mod 2 =0 then
Begin
For t:=1 to i do
K:=k*t;
S:=s+k;
End;
Writeln(s);
End.
Program zd;
const
t=0,5;
var
a,b,c:byte;
r,s:real;
begin
writeln('Введите сторону А');
readln(a);
writeln('Введите сторону В');
readln(b);
writeln('Введите угол С (в градусах)');
readln(c);
r:=c*pi/180; {Перевод из градусов в радианы}
s:=t*a*b*sin(r); {Формула для вычисления}
writeln('Результат = ',s);
readln; {Сразу выводит результат на монитор без нажатия Ctrl+F9 (вроде бы)}
end.
Вроде бы так, попробуй запустить проверить
Var
a : integer;
Begin
Readln(a);
Writeln(a div 10, ' ', a mod 10);
end.
Самое простое – так: m1 ~ V1; m2 ~ V2. => V1*t1 + V2*t2 = (V1+V2)*t3, откуда: {сразу ставлю цифры}:
<span>t3 = (14+250)/6 = 264/6 = 44°С</span>