Известны сопротивления двух не соединенных друг с другом участков электрической цепи и напряжение на каждом из них. по какому участку протекает меньший ток? напишите, , на языке pascal, используя оператор ветвления (if)
Var s1,s2:string; begin; writeln('Введите исходные знаки'); readln(s1); readln(s2); if ((s1<>'-') and (s1<>'+')) or ((s2<>'-') and (s2<>'+')) then begin; writeln('Ошибка'); exit; end; if ((s1='+') and (s2='+')) or ((s1='-') and (s2='-')) then writeln('+') else writeln('-'); end.
С числами: var a,b:integer; begin; writeln('Делимое:'); readln(a); writeln('Делитель'); readln(b); if b=0 then begin; writeln('Нельзя делить на ноль. Если это, конечно, не JavaScript.'); exit; end; if a=0 then begin; writeln('0'); exit; end; if ((a>0) and (b>0)) or ((a<0) and (b<0)) then writeln('+') else writeln('-'); end.
Первая: program qwer; uses crt; var i, kol : integer; Begin kol := 10; for i := 10 downto 1 do begin writeln(kol,' поросят пошли купаться в море.'); writeln(kol,' поросят пошли купаться в море.'); writeln(kol,' поросят резвились на просторе.'); writeln(kol,' Один из них утоп – его сложили в гроб,'); kol := kol - 1; writeln('И вот вам результат – ',kol,' поросят…'); end; End. Вторая: program qwer; uses crt; var i, pr, n : integer; Begin readln(n); pr := 1; for i := 1 to n do pr := pr * i; write(pr); End. Третья: program qwer; uses crt; var s, i : integer; Begin s := 115; for i := 1 to 9 do writeln(i * 100,'г = ',i * 100 * s / 1000,'руб'); End. Готово!
