var x,y,z:real;
begin
readln(x,y);
z:=x*x*x-2.5*x*y+1.78*x*x-12.5*y+1;
writeln(z);
end.
Деление в столбик на 2 с остатком, до тех пор, пока частное не станет равным 1. Запись начинается с конца (см. рис.)
Uses graphabc;
var x,y:integer;
begin
x:=100;
y:=100;
SetPenWidth(8);
SetPenColor(clBlue);
Drawcircle(x,y,50);
inc(x,110);
SetPenColor(clBlack);
Drawcircle(x,y,50);
inc(x,110);
SetPenColor(clred);
Drawcircle(x,y,50);
inc(y,65);
dec(x,165);
SetPenColor(clyellow);
Drawcircle(x,y,50);
inc(x,110);
SetPenColor(clLimeGreen);
Drawcircle(x,y,50);
inc(x,110);
end.
<span>Sqr(trunc(4.95)) = 16
Round(trunc(3.5)+0.7) = 4
Sqrt(sqr(16)) = 16
Sqr(5-abs(-5))
= 0</span>
Изи, к примеру условие найти найболлшее из 4 цифр, а>б (если да то выведем что не выполнили задачу, так как до 3-его условия не добрались), нет, дальше б>с (если да то выведем что не выполнили задачу, так как до 3-его условия не добрались) нет, с>д если да то то самое большое это с, выводим переменную с на экран(write(c);), если нет то end.