Program bit;
var m,a1,a2,a3:
integer;
begin
writeln('введите три числа');
readln(a1,a2,a3);
if (a1<a2) and (a1<a3) then m:=a1;
if (a2<a1) and (a2<a3) then m:=a2;
if (a3<a1) and (a3<a2) then m:=a3;
if (a1=a2) and (a1=a3) then
writeln('они равны')
else writeln('меньшее из трёх ',m);
<span>end.</span>
Var
x,s:real;
n,i:integer;
begin
write('Введите n и x: ');
readln(n,x);
for i:=1 to n do s:=s+cos(power(x,i));
writeln('y=',s)
<span>end.</span>
4 нуля находятся в твоём десятичном числе 172,25
1 мб=1024 кб
15*1024=15630 кб
затем пропорция:
15630 кб -2 мин
640. кб -х мин
х= 640*2/15630
х приблизительно равен 0.0818937 приблизительно равен 0.08 мин.
Но этот ответ не точный.
<span>ЭТО называется: "инструментальные средства разработки", стыдно не знать.
</span>