Регистрация
ShEnNnY
31.10.2020 17:05
Информатика
Есть ответ 👍

Написать программу в pascal вычисления сопротивления электрической цепи, состоящей из 2-х параллельно соединенных сопротивлений. (величина первого сопротивления 15 ом второго сопротивления 20 ом)

263
311
Посмотреть ответы 3

Ответы на вопрос:

daniil0723
daniil0723
4,4(77 оценок)
Var  r1,r2,r: real; begin  write('введите значение r1: ');   readln(r1);   write('введите значение r2: ');   readln(r2);   r: =r1*r2/(r1+r2);   writeln('общее сопротивление при параллельном включении: ',r) end.
kilala00
kilala00
4,4(18 оценок)
Var   r1, r2, r: real; begin   r1 : = 15; //readln(r1);   r2 : = 20; //readln(r2);   r : = 1/r1 + 1/r2;   r : = 1 / r;   writeln( 'общее сопротивление проводников (', r1 , '  и ', r2 , '  ом): ', r: 2: 6, ' ом'); end.
dina53646
dina53646
4,5(17 оценок)

#include <iostream>

using namespace std;

bool IsPrime(int n) {

int d = 2;

while (n % d != 0)

 d++;

return d == n;

}

signed main() {

setlocale(LC_ALL, "Rus");

int N;

cin >> N;

if (IsPrime(N))

 cout << "Число простое!";

else

 cout << "Число не простое!";

return 0;

}

Популярно: Информатика