Задача 0005

Дано два дійсних числа. Знайти середнє арифметичне цих чисел і середнє геометричне їх модулів.

TextWindow.Title="Задача 5"
TextWindow.Write("Задайте число x:")
x=TextWindow.ReadNumber()
TextWindow.Write("Задайте число y:")
y=TextWindow.ReadNumber()
c=(x+y)/2
d=Math.SquareRoot(Math.Abs(x*y))
TextWindow.WriteLine("Значення середнього арифметичного:"+c)
TextWindow.WriteLine("Значення середнього геометричного:"+d)

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s