Составить программы для решения в pascalabc: 1. составьте программу, проверяющую, верно ли утверждение, - id23261120210408 от ИлонаУстюгова12 08.04.2021 15:33

Question

Информатика: Составить программы для решения в pascalabc: 1. составьте программу, проверяющую, верно ли утверждение, что введенное вами целое число является четным.2. с начала пятого модуля дней. сколько полных недель за этот период? определить, закончился ли уже пятый модуль (считать, что в модуле 6 недель).​

ИлонаУстюгова12 · Accepted Answer

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.

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

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

MOGZ ответил