даны 2 целых числа n и m. найти значение выражения f=(n-2m)/( n+m) в квадрате. исходные данные запросите с клавиатуры и выведите результат на
5-9 класс
|
экран.
Program zadacha;
Var m,n:Integer;
f:Real;
Begin
Write('Введите число М: ');
Read(m);
Write('Введите число Н: ');
Read(n);
f:=(n-2*m)/(n+m)*(n+m);
Write('Результат: ',f);
ReadLn;
End.
Другие вопросы из категории
Читайте также
Входные данные: ввести два целых числа А,В (1 <=А,В<=10).
Входные данные: вывести произведение всех целых чисел от А до В включительно.
2.Даны 3 переменные вещественного типа:А,В,С.Если их значения упорядочены по возрастанию,то удвоить их.В противном случае заменить значение каждой переменной на противоположное.Вывести новые значения переменных А,В,С.
3. Даны 3 целых числа,одно из которых отлично от двух других,равных между собой. Определить порядковый номер числа,отличного от остальных.
ствния все целые числа расположенные между ними(включая сами числа)а так же кол-во N этих чисел, заранее благодарю
целые числа, расположенные между A и B (не включая числа A и B), а
также количество N этих чисел.
a,b,c,d.Выяснить произведение этих чисел больше 300? 3)Дано целое число ,если оно положительное,то прибавить к нему 1,а если отрицательное.то отнять от него 2.Вывести полученое число.