Заданы два числа. Напишите пожалуйста программку для нахождения приватного этих чисел.

Заданы два числа. Напишите пожалуйста программку для нахождения приватного этих чисел. Округлите итог до 10-х, оставив в дробной части одну цифру.

Задать свой вопрос
Лилия Эйланбекова
Написать программку на чём?
Алиса Коневко
паскаль авс
1 ответ

var A,B,Divd,Rounds: real;

begin

 write('Введите 1-ое число: ');

 read(A);

 write('Введите второе число: ');

 read(B);

 

 Divd := A / B;

 Rounds := round((Divd * 10)) / 10;

 

 write('Число: ' + Rounds);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт