Вот решение, только не обращай внимание на размер букв.
program TabulW;
var
a, b, c, x, dx, w: real;
begin
a := 2.8;
b := -0.3;
c := 4.0;
x := 1.0;
dx := 0.05;
Writeln(' a b c x w');
while x - 2 < 0.0001 do
begin
if x < 1.2 then
w := a * x * x + b * x + c
else if x > 1.2 then
w := (a + b * x) / sqrt(x * x + 1)
else
w := a / x + sqrt(x * x + 1);
Writeln(a:6:3, b:8:3, c:8:3, x:8:3, w:8:3);
x += dx
end;
Readln;
end.
1.V= d*i*t*s, где t – длительность звучания файла, s – количество каналов звучания, V - объем звукового файла
I=8 бит,
d=8 кГц,
t=1200*1024*8/( 8*8*1000)=153,6 секунд
Var a,b,k,s:integer;
begin
readln(a);
b:=a;
k:=0;
while b>0 do
begin
k:=k+1;
b:=b div 10;
end;
b:=a;
while b>0 do
begin
s:=s+round(power((b mod 10),k));
b:=b div 10;
end;
if a=s then writeln('Число ',a,' является числом Армстронга')
else writeln('Число ',a,' не является числом Армстронга');
end.
Пример:
153
Число 153 является числом Армстронга