Задача 0009

Три опори R1, R2, R3 з’єднані паралельно. Знайти опір з’єднання.

TextWindow.Title="Задача 9"
TextWindow.Write("Задайте значення R1:")
R1=TextWindow.ReadNumber()
TextWindow.Write("Задайте значення R2:")
R2=TextWindow.ReadNumber()
TextWindow.Write("Задайте значення R3:")
R3=TextWindow.ReadNumber()
R=(R1*R2*R3)/(R2*R3+R1*R3+R1*R2)
TextWindow.WriteLine("Значення опору:"+R)

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