1. (b+sqrt(b*b+4*a*c))/(2*a)-a*a*a*c+1/(b*b)
2. (a/c)*(b/d)-(a*b-c)/(c*d)
3. x-x*x*x/3+x*x*x*x*x/5
4. (x+y)/(x+1)-(x*y-12)/(34+x)
Говорить про вес луны не сосвсем корректно, так как это непосредственно от планеты, на которой она лежит. Масса её равна 7,3477×10^22 кг.
<span>Расстояние между Землей и Луной равно <span>384400 км.</span></span>
Program prog;
uses crt;
var a,b,i,p: integer;
begin
clrscr;
p:=1;
write('Введите значение а = '); readln(a);
write('Введите значение b = '); readln(b);
if b>=a then begin
for i:=a to b do
p:=p*i;
writeln('Произведение Р = ', p);
end
else
writeln('a > b');
end.
Кажется так.
необходи из алфавита вычесть общее количество знаков алфавита.
program z1;
var a,b,c:string;
i,j,k,d,g:integer;
begin
writeln('Шифрование?1-да,0-нет');
readln(g);
writeln('Исходный текст ');
readln(a);
writeln('ключ');
readln(d);
c:='';
b:='абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
for i:=1 to length(a) do
for j:=1 to length(b) do
begin
If g=0 then k:=(j-d) mod 32 else k:=(j+d);
if k > 33 then k:=k-33;
if a[i]=b[j] then c:=c+b[k];
end;
writeln(c);
end.