Задача №4. Решебник Абрамова С.А.

Задача №4. Даны два действительных положительных числа. Найти среднее арифметическое и среднее геометрическое этих чисел.

Решение Pascal

Delphi/Pascal program Pr4; var x,y : byte; r1, r2 : real; begin readln(x, y); r1 := (x + y)/2; r2 := sqrt(x * y); writeln('r1 = ', r1:10:2); writeln('r2 = ', r2:10:2); readln; end.123456789101112program Pr4;var x,y : byte; r1, r2 : real;begin readln(x, y); r1 := (x + y)/2; r2 := sqrt(x * y); writeln('r1 = ', r1:10:2); writeln('r2 = ', r2:10:2); readln;end.

Решение C++

C++ #include <iostream> #include <stdlib.h> #include <math.h> using namespace std; int main() { int x, y; cin >> x; cin >> y; double r1 = ( x + y ) / 2; double r2 = sqrt( x * y ); cout << r1 << endl; cout << r2 << endl; return 0; }123456789101112131415161718#include <iostream> #include <stdlib.h> #include <math.h>using namespace std; int main(){ int x, y; cin >> x; cin >> y; double r1 = ( x + y ) / 2; double r2 = sqrt( x * y ); cout << r1 << endl; cout << r2 << endl; return 0;}

Оцените решение (3 оценок, среднее: 3,00 из 5) Загрузка...

📎📎📎📎📎📎📎📎📎📎