3.5Кб*1024байт=3584байт
если двухбайтная кодировка то
3584:2=1792 символов
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>
Мы получаем информацию из интернета, из общения друг с другом, из музыки, также мы получаем новую информацию из телевизора. Информацию можно получить из книги или другого рукописного или печатного текста. Рисунок также несет информацию. Информация может быть самой разносторонней. Например: новости,факты, знания о чем-либо и т.д.
program zadacha1;
var x, y, k, h:Real;
Begin
write('x=');Read(x);
h:=exp(3*ln(x));
k:=exp(5*ln(x));
y:=x-h/3+k/5;
Writeln('y=',y);
end.
Program zadacha2;
var x, y, h:Real;
Begin
write('x=');Read(x);
Write('y=');Read(x);
h:=sqr(1/2)-cos(x)+sin(2*x*y);
writeln('h=',h);
end.
Program zadacha4;
var x, y, h:real;
begin
write('x=');Read(x);
h:=abs(exp(4*ln(x))-exp(5*ln(x)));
y:=x- 10*sin(x)+h;
write ('y=',y);
end.