Ответ:
Объяснение:
program tablitsa_funktsii;
Var a,b,h,x:real;
Begin
write('Введите отрезок [a,b]: ');readln(a,b);
write('Введите шаг h: ');readln(h);
writeln('-------------');
writeln(' x |',' f(x) ');
writeln('-------------');
x:=a;
While x<=b do
Begin
writeln(x:6:2,'|':1,2*cos(x)-1:6:2);
x:=x+h;
End;
readln;
End.
1/8кбайт=1024/8байт=1024*8/8бит=1024бит
I=k*i, где I - инфор. обьем, k - количество символов, i - мощность одного символа.
N=2^i, где N - кол-во символов в алфавите
I=1024бит
k=1024 символов
i=I/k=1024/1024=1
N=2^1=2
Ответ: 2 символа
Var
i,a:integer;
ch:set of char;
n:string;
Begin
Write('Введите число ');
Readln(n);
ch:=['0'..'9'];
for i:= 1 to length(n) do
if n[i] in ch then a:=a+1;
case a of
1:Write('В числе ',a,' цифра');
2..4:Write('В числе ',a,' цифры')
else Write('В числе ',a,' цифр');
End;
<span>End. </span>