Заданы два числа. Напишите пожалуйста программу для нахождения частного этих чисел. Округлите результат до десятых, оставив в дробной части одну цифру.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var A,B,Divd,Rounds: real;
begin
write('Введите первое число: ');
read(A);
write('Введите второе число: ');
read(B);
Divd := A / B;
Rounds := round((Divd * 10)) / 10;
write('Число: ' + Rounds);
end.