По информатике. найти общее сопротивление из трех последовательных резистеров. решить на языке паскаля. нужно, надеюсь знаете основы. program (имя), var (cтрока описания переменных), begin (начало програмного блока) и.т.д до end.
Program soprotivlenie; Rs это общее var R1,R2,R3,Rs:integer; begin Rs:=0; writeln('ввести сопротивления в резисторах'); readln(R1,R2,R3); Rs:=R1+R2+R3; writeln('общее сопротивление равно ',Rs) end. как то так. для проверки вычисли на бумаге а потом в программе.
Корпоративные требования к почтовой перепискеписьмо состоит из трех частей1. Обращение2. текст письма3. Подпись4. исполнитель или сотрудник для связи с полными координатами(адреса: почтовый,E-mail, IСQ,телефон) Сетевой этикет Сетево́й этике́т (сетикет, нетикет — неологизм, является слиянием слов «сеть» (англ. net) и «этикет») — правила поведения, общения в Сети, традиции и культура интернет-сообщества, которых придерживается большинство. Это понятие появилось в середине 80-х годов XX века в эхоконференциях сети FIDO. Некоторые из правил сетевого этикета присутствуют в RFC 1855 (английский вариант). Правила этикета не являются всеобщими и жестко установленными — в разных сообществах они могут значительно различаться. Так как основная цель этикета состоит в том, чтобы не затруднять общение в сообществе, правила могут устанавливаться исходя из целей сообщества, принятого стиля общения, технических ограничений, и т. д. Некоторые правила записаны, и даже оформляются в виде формального устава, а иногда и просто в виде списка, другие правила нигде не записаны, но известны большинству членов сообщества и строго соблюдаются.
var x: array[1..n] of integer; i, min, max: integer;
begin Randomize; Writeln('Элементы массива'); min := 32767; max := -32768; for i := 1 to n do begin x[i] := Random(101) - 50; Write(x[i]:4); if (x[i] > 0) and (min > x[i]) then min := x[i] else if (x[i] < 0) and (max < x[i]) then max := x[i] end; Writeln; Writeln('Min=', min, ', max=', max) end.
var x: array[1..n] of integer; i, max, max1: integer;
begin Randomize; Writeln('Элементы массива'); max := -32768; max1 := max; for i := 1 to n do begin x[i] := Random(100); Write(x[i]:3); if max < x[i] then begin max1 := max; max := x[i] end else if max1 < x[i] then max1 := x[i] end; Writeln; Writeln('Второй максимум равен ', max1) end.
var R1,R2,R3,Rs:integer;
begin
Rs:=0;
writeln('ввести сопротивления в резисторах');
readln(R1,R2,R3);
Rs:=R1+R2+R3;
writeln('общее сопротивление равно ',Rs)
end.
как то так. для проверки вычисли на бумаге а потом в программе.