Первый вариант: если десятичный логарифм от (2x+3).
Var X:real;
Begin
Write('x = ');ReadLn(x);
if x<=-1.5 then WriteLn('Ошибка: Нельзя вычислить логарифм от нуля!')
else if x = 0 then WriteLn('Ошибка: На ноль делить нельзя!')
else WriteLn('f(',x,') = ',Ln(2*x+3)*4/(Tan(3*x)*Ln(10)))
End.
Второй вариант: если логарифм по основанию (2x+3) от 4.
Var X:real;
Begin
Write('x = ');ReadLn(x);
if x<=-1.5 then WriteLn('Ошибка: Основание логарифма должно быть больше нуля!')
else if x = 0 then WriteLn('Ошибка: На ноль делить нельзя!')
else WriteLn('f(',x,') = ',Ln(4)/(Tan(3*x)*Ln(2*x+3)))
End.
1)
var
a,b,sum : integer;
begin
Readln(a, b);
if (a mod b = 0) then
begin
while a > 0 do
begin
sum:= sum + (a mod 10);
a:= a div 10;
end;
if sum > b then
begin
Writeln('Верно');
halt;
end;
end;
Writeln('Неверно');
end.
<span>Пример:
</span><span>1234 2
Верно
</span>2)
<span>var
i: integer;
begin
For i:= 100 to 999 do
if (i*i)mod 1000 = i then Write(i, ' ');
end.</span><span>
</span><span>Результат:
376 625
</span>
3)
var
i,n : integer;
function Simple(n: Longint): boolean;
var
i: Longint;
begin
for i := 2 to Round(Sqrt(n)) do
if n mod i = 0 then
break;
Simple := n mod i <> 0;
end;
begin
Read(n);
For i:= 1 to Round(Sqrt(n)) do
if n mod i = 0 then
if (Simple(i))and(Simple(n div i)) then
begin
Writeln('YES');
halt;
end;
Writeln('NO');
end.
<u>Пример:</u>
33
YES
Программа:
program Project1
uses crt;
var a,b,c:intiger;
begin
clrscr;
write('a= '); readln(a);
write('b=' ); readln(b);
с: =a;
a:= b;
b:=с;
readln;
writeln('a= '.a);
writeln('b= '.b);
readln
end.
2,6 ГБайт = 2,6*1024 = 2662, 4 МБайт
2662, 4 МБайт = 2662, 4*1024 = 2726297,6 КБайт
2726297,6 КБайт = 2726297,6*1024 = 2791728742,4 Байт
Ответ: 2,6 ГБайт = 2791728742,4 Байт.
<span>1 ГБ = 1024 МБ
1 МБ = 1024 КБ
1 КБ = 1024 Байт
1 Байт = 8 Бит
</span><span>6291456 Кб = </span>6.2915 Гб
<span>536870912 Б = 0.5369 ГБ</span>
<span><span>
</span>
</span>
