Даны натуральные числа х и у. Вывести в Label1 целую часть числа х/у, а в Ladel2 8 цифр после запятой числа х/у.

Question

Информатика

Магда

1 ноября, 10:39

Даны натуральные числа х и у. Вывести в Label1 целую часть числа х/у, а в Ladel2 8 цифр после запятой числа х/у.

+4

Ответы (1)

Знаете ответ на вопрос?

Филомена · Answer 1

Var

lable1, x, y:Integer;

lable2:real;

Begin

Readln (x, y) ;

lable1: = x div y;

lable2: = x/y - lable1;

Writeln (lable1) ;

Writeln (lable2:0:8) ;

end.

Пример:

10 3

3

0.33333333