T<span> := 5;
</span>x := 2;
y := 5<span>;
</span>
Program n_1;
var m,k: integer;
begin
if (m>0) and (k>0) then
begin
m:=m*10;
k:=k*10;
end;
if ((m>0) and (k<0)) or ((m<0) and (k>0) then
begin
m:=m*100;
k:=k*100;
end;
if (m<0) and (k<0) then
begin
m:=m*1000;
k:=k*1000;
end;
writeln(m);
writeln(k);
end.
Посмотри немного по-другому на высказывание:
НЕ (число < 10) И (число нечётное) = (число >= 10) И (число нечётное)
Это высказывание истинно для числа 13.
Ответ: вариант 2
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.