4 года назад

((a+b)^3-(a)^3)/(3a(b)^2+(b)^3+3(a)^2b) запись в паскале АВС с округлением получившегося числа до целой а=1000 b=0.0001

1 ответ:

Nolereoo [51]4 года назад

0 0

Var a,b,ab,a2,b2:real;
begin
a:=1000;
b:=0.0001;
ab:=a+b;
a2:=a*a;
b2:=b*b;
writeln((ab*ab*ab-a2*a)/(3*a*b2+b2*b+3*a2*b):3:0);
//((a+b)^3-(a)^3)/(3*a*(b)^2+(b)^3+3*(a)^2*b)
end.

Результат:
1

Или так:
(exp(ln(a+b)*3)-a*a*a)/(3*a*b*b+b*b*b+3*a*a*b)

Читайте также

Переведите число 67 из десятичной системы счисления в двоичную. Проверьте правильность вычислений обратным переводом из двоичной

Яначка

См. решение на рисунке

0 0

3 года назад

4.Для чего используют мастер подстановок? а)Для создания нового поля в таблице. б)для создания новых таблиц. в)для добавления зн

said0049

Я так понимаю, это Access.
4. - г (сделать более простым ввод значений в поле)
5. - а
6. - б
7. - г
8. - а
9. - в
13. а,г

0 0

4 года назад

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел ,кратных 6 и оканчивающихся на 2.

макена

Var
n,k,i,t:integer;
begin
Read(n);
k:=0;
for i:=1 to n do begin
    Read(t);
    if (t mod 6=0) and (t mod 10=2) then Inc(k)
    end;
Writeln(k)
end.

0 0

4 года назад

Паскаль 1. Дано натуральное число. Верно ли, что в данном числе сумма цифр больше В, а само число делится на В (В вводится с кл

Rea1ity

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.

Пример:
1234 2
Верно

2)
var
i: integer;
begin
For i:= 100 to 999 do
if (i*i)mod 1000 = i then Write(i, ' ');
end.

Результат:
376 625

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.

Пример:
33
YES

0 0

2 года назад

Сделать в Паскале 15 вариант оба задания по информатике

slaves25

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var x:=ReadReal('x=');
var y:=Ln(5*x)+Sqrt(Cos(x)/x)+12*x+Sin(10*x);
Writeln('y=',y)
end.

Примеры
x= 1.424
y=20.3661207208549

x= 0
y=NaN - результат не является допустимым числом (логарифм 0)

0 0

4 года назад

((a+b)^3-(a)^3)/(3*a*(b)^2+(b)^3+3*(a)^2*b) запись в паскале АВС с округлением получившегося числа до целой а=1000 b=0.0001

((a+b)^3-(a)^3)/(3a(b)^2+(b)^3+3(a)^2b) запись в паскале АВС с округлением получившегося числа до целой а=1000 b=0.0001