Задачник Абрамова № 9

• Алексей
• Комментариев нет

§ 1. Арифметика действительных чисел. Вычисление по формулам.

9. Три сопротивления R1, R2, R3 соединены параллельно. Найти сопротивление соединения.

C:

#include <stdio.h>;

int main()
{
	float r1,r2,r3,r;
	printf("R1 = ");
	scanf("%f",&r1);
	printf("R2 = ");
	scanf("%f",&r2);
	printf("R3 = ");
	scanf("%f",&r3);
	r = 1/(1/r1+1/r2+1/r3);
	printf("R = %fn",r);
	return 0;
}

Pascal:

const pi = 3.14;
var r1,r2,r3,r:real;
begin
	write('R1 = ');
	read(r1);
	write('R2 = ');
	read(r2);
	write('R3 = ');
	read(r3);
	r := 1/(1/r1+1/r2+1/r3);
	write('R = ',r:4:2,#13#10);
end.