Var a, b, x : real;
Begin
Write('Введите а: ');
Readln(a);
Write('Введите b: ');
Readln(b);
X := -b + b * b - 4 * a * b / 2 * a;
Write('x = ', x : 0 : 2);
Readln;
End.
ну например
в первом столбике пишешь числа попорядку
во втором столбике пишешь "=A1*A1" и протягиваешь вниз на всю таблицу
в третем пишешь "=A1*A2" и протягиваешь вниз на всю таблицу
в первом столбике у нас получается число
во втором квадрат числа
в третем - куб числа
1.)Стрелка
<span>2.)Список
</span>3.)Отмена
Как то так))
// Например так:
begin
var a := 123456789;
a := a.ToString[2:].ToInteger;
Print(a) // 23456789
end.
// Или так:
function foo(a: integer): integer;
begin
if a div 10 = 0 then exit
else
Result := a mod 10 + 10 * foo(a div 10);
end;
begin
var a := 123456789;
Print(foo(a)) // 23456789
end.
var e,f,g,d,a,b,c,x1,x2:real;
begin
writeln('Введите значение e: ');
readln(e);
writeln('Введите значение f: ');
readln(f);
writeln('Введите значение g: ');
readln(g);
a:=e+sqrt(sqr(abs(f-g))*abs(f-g));
b:=(f/g)+7;
c:=(15+f)/(17+g);
d:=sqr(b)-4*a*c;
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('a = ',a);
writeln('b = ',b);
writeln('c = ',c);
writeln('d = ',d);
writeln('x1 = ',x1);
writeln('x2 = ',x2);
end.