А скорее всего, она же с текстом работает)
В результате выполнения программы по данному алгоритму, получится 8
var s1,s2,a,b: integer; i: integer;begin s1:=0; s2:=0; a:=1; b:=3; for i:=a to b do begin if i mod 2=0 then s2:=s2+i*i else s1:=s1+i; end; s1:=s1+s2; writeln(s1);end.
Program zadacha;
Var t, v1, t1, v2, t2, v: real;
begin ;
Writeln ('введите значения v1, t1, v2, t2');
Readln (v1, t1, v2, t2);
t := (v1*t1+v2*t2)/(v1+v2);
Writeln ('T смеси = ', t);
<span>end.</span>
N - количество цветов.
i - глубина цвета.
N=2^i
1) 2^1=2
2) 2^2=4
3) 2^3=8
4) 2^4=16
5) 2^8=256
6) 2^16=65536
7) 2^24=16777216
Var x,y,z,t: real;
begin
write('числа x y z через пробел: ');
readln(x,y,z);
t:=2*cos(x-pi/6)/(0.5+sin(y)*sin(y))*(1+z*z/(3-z*z/5));
writeln('t = ',t);
end.
числа x y z через пробел: 1 2 3
t = 11.3859051278616