Даны 2 целых числа n и m. найти значение выражения f=(n-2m)/( n+m) в квадрате. исходные данные запросите с клавиатуры и выведите результат на
5-9 класс
|
экран.
var n, m :integer;
f: real;
begin
Writeln('Введите с клавиатуры два целых числа');
readln(n, m);
f:=sqr((n - (2*m))/(n+m));
writeln('Число n =', n);
writeln('Число m =', m);
writeln('Результат вычисления =',f);
end.
program gt;
var n,m:integer;
f:real;
begin
readln(n,m);
f:=(n-2*m)/((n+m)*(n+m))
writeln('n=',n);
writeln('m=',m);
writeln('f=',f);
end.
Другие вопросы из категории
что не смог найти ошибку (см. вложение,1-2). Восстановление системы пробовал, сказал, что все файлы на месте, только не захотел менять один файл - см. в вложениях (3 изображение). Помогите поподробнее плиз.
З.Ы.возможно проблема в системном файле?
З.Ы.Ы пишу с планшета
этого файла. (Например: Spravka.doc)
?*sk*v??*?.j**
m*??**ci*?.**g
*o??o?**ty.*p?
сообщение должно состоять из 3 частей
1.Что это такое и для чего они предназначены.
2.Кто их использует и зачем.
3.Примеры программ.
Читайте также
Входные данные: ввести два целых числа А,В (1 <=А,В<=10).
Входные данные: вывести произведение всех целых чисел от А до В включительно.
2.Даны 3 переменные вещественного типа:А,В,С.Если их значения упорядочены по возрастанию,то удвоить их.В противном случае заменить значение каждой переменной на противоположное.Вывести новые значения переменных А,В,С.
3. Даны 3 целых числа,одно из которых отлично от двух других,равных между собой. Определить порядковый номер числа,отличного от остальных.
ствния все целые числа расположенные между ними(включая сами числа)а так же кол-во N этих чисел, заранее благодарю
целые числа, расположенные между A и B (не включая числа A и B), а
также количество N этих чисел.
a,b,c,d.Выяснить произведение этих чисел больше 300? 3)Дано целое число ,если оно положительное,то прибавить к нему 1,а если отрицательное.то отнять от него 2.Вывести полученое число.