Составить блок-схему и написать программу на языке PascalABC.NET. 1. Три сопротивления...

1. $\frac1R=\frac1{R_1}+\frac1{R_2}+\frac1{R_3}$ , откуда
$R=\frac1{\frac1{R_1}+\frac1{R_2}+\frac1{R_3}}$

Программа:

var R1, R2, R3, R: real;
begin
write('Введите сопротивления R1, R2, R3 (в Ом): ');
read(R1, R2, R3);
R := 1 / (1 / R1 + 1 / R2 + 1 / R3);
writeln('Полное сопротивление цепи ', R:0:3, ' Ом');
end.

2. $h=\frac{gt^2}2$ , откуда
$t=\sqrt{\frac{2h}g}$

Программа:

const g = 9.8;
var h, t: real;
begin
writeln('Введите высоту h (в м): ');
read(h);
t := sqrt(2 * h / g);
writeln('Время падения ', t : 0 : 3, ' с');
end.

Блок-схемы в приложении:

Составить блок-схему и написать программу ** языке PascalABC.NET. 1.​ Три сопротивления...

Составить блок-схему и написать программу ** языке PascalABC.NET. 1. Три сопротивления...