morozovalexander90
?>

Дано три різних дійсних числа a, b, c. знайти добуток двох більших чисел. решите в с++

Информатика

Ответы

marusyamr
#include <iostream>
using namespace std;

int main()
{
    float x, y, z, min, p;
    cout << "Введите x:", cin >> x, cout << "\n";
    cout << "Введите y:", cin >> y, cout << "\n";
    cout << "Введите z:", cin >> z, cout << "\n";
    if (x<y) min = x;
    else min = y;
    if (z<min) min = z; 
    p = x*y*z/min;
    cout << "p = " << p;
    return 0;
}

Пример:
Введите x: 5
Введите y: 3
Введите z: 9
45
татьяна1245
#include <iostream>
using namespace std;
int main()
{
   double a,b,c,p;
   cin>>a>>b>>c;
   if (a>b)
      if (b>c) p=a*b;
      else p=a*c;
   else
      if (a<c) p=b*c;
      else p=a*b;
   cout<<p<<"\n";
   return 0;
}
Valerevna-Vardan
PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!

Самое глупое, что можно было придумать - использовать цикл с предусловием while ... do там, где имеется заданное число повторений:

begin
  var n:=ReadInteger('n=');
  var (s,i):=(0.0,1);
  while i<=n do begin
    s+=1/Sqr(2*i+1);
    i+=1
    end;
  Writeln('S=',s)
end.

Пример
n= 10
S=0.210988884817533

Гораздо естественнее тут выглядит цикл со счетчиком:

begin
  var n:=ReadInteger('n=');
  var s:=0.0;
  for var i:=1 to n do
    s+=1/Sqr(2*i+1);
  Writeln('S=',s)
end.

А если использовать современные возможности программирования в PascalABC.NET, решение вообще в одну строчку:

begin
  Writeln('S=',SeqGen(ReadInteger('n='),t->1/Sqr(2*t+1),1).Sum)
end.
dkedrin74038
PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!

Самое глупое, что можно было придумать - использовать цикл с предусловием while ... do там, где имеется заданное число повторений:

begin
  var n:=ReadInteger('n=');
  var (s,i):=(0.0,1);
  while i<=n do begin
    s+=1/Sqr(2*i+1);
    i+=1
    end;
  Writeln('S=',s)
end.

Пример
n= 10
S=0.210988884817533

Гораздо естественнее тут выглядит цикл со счетчиком:

begin
  var n:=ReadInteger('n=');
  var s:=0.0;
  for var i:=1 to n do
    s+=1/Sqr(2*i+1);
  Writeln('S=',s)
end.

А если использовать современные возможности программирования в PascalABC.NET, решение вообще в одну строчку:

begin
  Writeln('S=',SeqGen(ReadInteger('n='),t->1/Sqr(2*t+1),1).Sum)
end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Дано три різних дійсних числа a, b, c. знайти добуток двох більших чисел. решите в с++
Ваше имя (никнейм)*
Email*
Комментарий*