Var
x, y: real;
begin
Write('Введите через пробел координаты точки (x,y): ');
Readln(x, y);
Writeln((y >= 0) and (y <= x + 4) and (y <= 4 - x))
end.
var
x, y: real;
begin
Write('Введите через пробел координаты точки (x,y): ');
Readln(x, y);
Writeln((x >= 0) and (y >= x - 6) and (sqr(x) + sqr(y) <= 36))
end.
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
range(10,99).Where(x->x*x mod 13=0).Println;
end.
1. Программа Paint,ещё Photoshop.
2. Microsoft Word,
Блокнот
Class Program
{
<span>static void Main(<span>string[] args</span>)
</span><span>{
int A;
Console.WriteLine ("Vvedite A");
Console.ReadLine (A);
if (A>0)
{
A=A+1;
}
else
{
A=A+0;
}
Console.WriteLine (A);
}</span>
Program p1;
var x1,x2,y1,y2:integer;
function dlina(xx1,yy1,xx2,yy2:real):integer;
begin
dlina:=round(sqrt(sqr(xx1-xx2)+sqr(yy1-yy2)));
end;
begin
writeln('Введите координаты первой точки');
readln(x1,y1);
writeln('Введите координаты второй точки');
readln(x2,y2);
writeln('Расстояние между точками:',dlina(x1,y1,x2,y2));
end.