vadimkayunusov
?>

Какие записи алгоритмов вы знаете. Выберите несколько из 4 вариантов ответа:​

Информатика

Ответы

gunel1988alieva

Відповідь:

1, 2, 3

Пояснення:

natkuv7
                                     PascalABC.NET                                       beginvar n := ReadInteger('Введите количество резисторов:');var Rs := ReadArrInteger('Введите их сопротивления:',n);Writeln(NewLine, 'Общее сопротивление цепи равно:');Println(' при последовательном соединении -', Rs.Sum,'Ом');Println(' при параллельном соединении -', 1/Rs.Sum(r->1/r),'Ом');end.

или кратко:

beginvar Rs := ReadArrInteger(3);Println('послед:', Rs.Sum);Println('парал:', 1/Rs.Sum(r->1/r));end.

Пример работы:


решите нужно очень (составить программу определения общего сопротивления электрической цепи при посл
решите нужно очень (составить программу определения общего сопротивления электрической цепи при посл
AkimovaI1608
                                     PascalABC.NET                                       beginvar n := ReadInteger('Введите количество резисторов:');var Rs := ReadArrInteger('Введите их сопротивления:',n);Writeln(NewLine, 'Общее сопротивление цепи равно:');Println(' при последовательном соединении -', Rs.Sum,'Ом');Println(' при параллельном соединении -', 1/Rs.Sum(r->1/r),'Ом');end.

или кратко:

beginvar Rs := ReadArrInteger(3);Println('послед:', Rs.Sum);Println('парал:', 1/Rs.Sum(r->1/r));end.

Пример работы:


решите нужно очень (составить программу определения общего сопротивления электрической цепи при посл
решите нужно очень (составить программу определения общего сопротивления электрической цепи при посл

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Какие записи алгоритмов вы знаете. Выберите несколько из 4 вариантов ответа:​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Seropyan-Elena1944
director
bergamon
Vuka91
klkkan
sergeykirushev
ruslan
shurshin6975
msk27
merung
Nazart44446
natakrechko
info8
lenarzhaeva
Andreevich