Составьте программу, которая будет будет просить человека - вопрос №17457517 от Eliseevka12 22.08.2022 19:35

Question

Информатика: Составьте программу, которая будет будет просить человека ввести имеющуюся у него сумму денег? присваивать введенные данные переменной sum, а потом выводить три варианта ответа в зависимости отимеющейся у посетителя суммы. При этом система выводит следующие варианты ответов в зависимости отвведенной суммы:1. если сумма составляет менее 500 тенге - У Вас недостаточно денег на билет. 2. от 500 до 5000 - У Вас хватает денег на просмотр фильма в нашем кинотеатре. З. свыше 5000 - Вы можетеСмотреть кино

Eliseevka12 · 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.

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

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