var
x, y: real;
begin
read(x);
y := 2 * cos(x) - tan(x);
x := 4 * x * 4 * 4 * x * x - 5 * x * x * 5;
writeln('y = ', y, ' / ', x, ' = ', y / x);
writeln('Вторая задача = ', abs(x * x * x - 5));
end.
125 из десятичной получается 1111101 <span>в двоичной
</span>125 из десятичной получается 175 в восьмеричной
125 из десятичной получается <span>7D </span><span>в шестнадцатеричной </span>
Крайние точки не учитываются. Если вам необходимо, чтобы они учитывались - замените знаки < и > на <= и >=
var
Y0,X0:integer;
begin
writeln('Введите координаты точки Y0 и X0');
readln(Y0,X0);
if ( ((X0>-6) and (X0<-3)) and ((Y0>-3) and (Y0<2)) )
or
( ((X0>-6) and (X0<-1)) and ((Y0>2) and (Y0<6)) )
then
writeln('Точка принадлежит области')
else
writeln('Точка НЕ принадлежит области')
end.
Const
T = 'АБВГДЕЁЖЗИЙКЛИНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжхийклмнопрстуфхцчшщъыьэюя';
n = 66;// Количество символов в Т
var
s,buf: string;
P: array[1..n] of integer;
i, k: integer;
F: Text;
begin
Assign(F, 'CharCount.txt');
Reset(F);
s:='';
while not SeekEof(F) do begin
Read(F,buf);
s:=s+buf
end;
Writeln(s);
for i := 1 to n do P[i] := 0;
for i := 1 to length(s) do
begin
k := Pos(s[i], T);
if k > 0 then P[k] := P[k] + 1
end;
for i := 1 to n do
if P[i] > 0 then writeln(T[i], ' - ', P[i]:3)
end.
Тестовый пример:
Ксаверий Феофалактович Грушин, следственный пристав Сыскного управления при московском обер-полицмейстере,облегченно вздохнул и отложил влево, в стопку "просмотрено", сводку важных преступлений за вчерашний день
Г - 1
К - 1
С - 1
Ф - 1
а - 8
б - 2
в - 13
г - 2
д - 4
е - 17
ж - 2
х - 2
и - 11
й - 5
к - 6
л - 10
м - 4
н - 13
о - 20
п - 8
р - 11
с - 12
т - 8
у - 6
ф - 1
ц - 1
ч - 3
ш - 2
ы - 3
ь - 1
я - 1
Ничего сложного, простейшее задание
<span>Урывок кода*
sum := sum + mas[i];
pr := pr * mas[i];</span>