Напишите программу, пожалуйста !!!

Question

Ввести два числа. Разделить первое на второе 
Узнать больше ли 1(еденица) это частное или нет. Вывести сообщение

В Паскале!!

Евгений · Accepted Answer

;nasm -f bin t2NS.asm -o t2NS.com 
 org 100h 
start: 
 jmp begin 
data: 
 snl db 10,0 
 sp1 db 'Number 1:',0 
 sn1 times 255 db 0 
 sp2 db 'Number 2:',0 
 sn2 times 255 db 0 
 spr db 'Result:',0 
... 
А дальше все просто 
 
В паскале, так в паскале.. . 
 
uses crt; 
 
var a, b:real; 
 
Begin 
 
readln("введите первое число", a); 
readln("введите второе число", b); 
 
if (a div b) > 1 then writeln("Частное больше единицы"); 
else 
writeln("Частное меньше единицы"); 
 
end.

Станислав Гержот · Answer

Чтобы узнать „будет ли частное от деления больше единицы“, не нужно выполнять деление! 
Достаточно выяснить: 
1) Если у чисел знаки различные, то частное будет меньше единицы 
2) Если первое число по модулю больше второго, то частное будет больше единицы 
3) В противном случае частное будет меньше или равно единице

Toppller Toppller · Answer

а ты язык программирования не забыла указать?