program qwerty; uses crt; var a: real; beginclrscr; writeln('введите количество миль'); readln(a); a: = a*1.6; writeln('кол-во киллометров - ',a: 2: 2); readkey; end.
x1 = int(input())
y1 = int(input())
x2 = int(input())
y2 = int(input())
x1y1quarter = 0
x2y2quarter = 0
if x1 == 0 or y1 == 0:
print("Точка 1 не принадлежит никакой четверти")
if x2 == 0 or y2 == 0:
print("Точка 2 не принадлежит никакой четверти")
if x1 > 0:
if y1 > 0:
x1y1quarter = 1
if y1 < 0:
x1y1quarter = 2
if x1 < 0:
if y1 > 0:
x1y1quarter = 4
if y1 < 0:
x1y1quarter = 3
if x2 > 0:
if y2 > 0:
x2y2quarter = 1
if y2 < 0:
x2y2quarter = 2
if x2 < 0:
if y2 > 0:
x2y2quarter = 4
if y2 < 0:
x2y2quarter = 3
if x1y1quarter == x2y2quarter:
print("Четверти одинаковые")
else:
print ("Четверти разные")
Поделитесь своими знаниями, ответьте на вопрос:
Пользователь вводит расстояние выраженное в милях нужно перевести это расстояние в км(1 миля=1, 6км)
программа на паскале:
program xxx; var a, b: real; begin writeln('введите количество миль'); readln(a); b: = a*1.6; writeln('кол-во киллометров - ',b)end.