Program one;
var a,b,c:real;
begin
Readln(a,b,c);
writeln((b+sqrt(b*b+4*a*c))/2*a - a*a*a*c+1/(b*b))
end.
program two;
var a,b,c,d:real;
begin
Readln(a,b,c,d);
writeln((a/c)*(b/d)- (a*b-c)/(c*d))
end.
program three;
var x,y:real;
begin
Readln(x,y);
writeln((Sin(x)+cos(y))/(Cos(x)-sin(y))*tan(x*y))
end.
program four;
var x,y:real;
begin
Readln(x,y);
writeln((x+y)/(y+1)-((x*y)-12)/(34+x))
end.
Узнать количество памяти, которое занимает каждый символ
Ответ: 3
Программа подсчета количества нечетных цифр в числе
d[x][y] - это точка с координатами
0 < d[x] <2
0 < d[y] < 1
То есть d(x0,y0) и d(x,y)
x0 = y0 = 0;
x = 2; y = 1;
Program oplata;
var a,b:integer;
begin
writeln('Введите стоимость ');
readln(a);
writeln('Введите оплату ');
readln(b);
if a=b then writeln('спасибо')
else if a>b then writeln('добавьте денег')
else writeln('возьмите сдачу')
<span>end.</span>