Задать вопрос
13 июля, 15:54

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

+3
Ответы (1)
  1. 13 июля, 17:08
    0
    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
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Даны натуральные числа х и у. Вывести в Label1 целую часть числа х/у, а в Ladel2 8 цифр после запятой числа х/у. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы