Задача 3 program n n; var x,y: integer; begin х: =7; y: = 3; if (y div x) 0 then x:=x+y mod 3 else y:=y - id1097393720210930 от dasha685331 30.09.2021 23:39

Question

Информатика: Задача 3 program n n; var x,y: integer; begin х: =7; y: = 3; if (y div x) 0 then x:=x+y mod 3 else y:=y div 3+2*x writeln(y); end. Задача 4 program n n; var x,y: integer; begin x:=4; y:=3; if (x div y) 0 then if x y then x:=x div 4+x mod 8 else x:= x mod y else x:=y mod 4+x*2 writeln (x) end. ​

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

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

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

Задача 3program n n;var x,y: integer;beginх: =7;y: = 3;if (y div x) >0 then x:=x+y mod 3else y:=y div 3+2*xwriteln(y);end.Задача 4program n n;var x,y: integer;beginx:=4;y:=3;if (x div y) <>0 then if x<>y then x:=x div 4+x mod 8 else x:= x mod yelse x:=y mod 4+x*2writeln (x) end. ​

MOGZ ответил