#include <iostream>
int main()
{
setlocale(LC_ALL, "rus");
double r1, r2, r;
int connection;
std::cout << "r1=";
std::cin >> r1;
std::cout << "r2=";
std::cin >> r2;
do {
std::cout << "Выберите тип подключения (1-последовательно, 2 параллельно): ";
std::cin >> connection;
} while (connection != 1 && connection != 2);
if (connection == 1) r = r1 + r2;
else r = r1*r2/(r1 + r2);
std::cout << "Результат r=" << r;
}
Внимание! Если программа не работает, обновите версию!
1. Современное решение
begin
var (a,b,c):=ReadReal3;
if (a>b) and (b>c) then else (a,b,c):=(a*a,b*b,c*c);
Println(a,b,c)
end.
Пример
15.8 4.9 13
249.64 24.01 169
2. А так, увы, все еще учат писать во многих школах...
program Toska;
var
a,b,c:real;
begin
Read(a,b,c);
if not ((a>b) and (b>c)) then begin
a:=a*a; b:=b*b; c:=c*c
end;
Writeln(a,' ',b,' ',c)
end.