Question

Напишите пожалуйста программу на Turbo pascal :
Найти частное двух целых чисел вводимых с клавиатуры 

Answer 1

Var
x,y:integer;
z:real; {При делении всегда получаем НЕ целое число}
begin
readln(x,y);
//Далее либо z:=x/y, либо  z:=x/y, в зависимости от того, что на что делить
writeln(z);
end.