Program gt;
var x1,x2,y1,y2:real;
begin
readln(x1,y1,x2,y2);
if((x1*x1+y1*y1)>(x2*x2+y2*y2))then writeln('2-точка')else
writeln('1-точка');
end.
<span>b. Для того чтобы число делилось на 2, достаточно, чтобы оно было четным
</span><span>d. Для того чтобы число делилось на 3, достаточно, чтобы сумма его цифр </span>
А) <span>0,00375*10^3 = 3,75
б) </span><span>1,234*10^(-2) = 0,01234
в) </span><span>5,737*10^(-2) = 0,05737</span>
Это б)
uses crt;
var S,b,h:real;
begin
writeln('Введите b,h':);
readln(b,h);
S:=1/2*b*h;
writeln('S=',S);
readln;
end.
а)
uses crt;
var a,b,c,P:integer;
begin
writeln('Введите a,b,c':);
readln(a,b,c);
P:=a+b+c;
writeln('P=',P);
readln;
end.
в)
uses crt;
var a,b,c,S,R1,R:real;
begin
writeln('Введите a,b,c,S':);
readln(a,b,c,S);
R1:=a*b*c;
R:=R1/4*s;
writeln('R-',R);
readln;
end.