Program p1;
var sum,i,m:integer;
begin
writeln('Введите m: ');
readln(m);
sum:=0;
while i<m do
begin
i:=i+1;
sum:=sum+i;
end;
writeln('Сумма натуральных чисел =',sum);
end.<span>
</span>
И че дальше я не понял задание
<span>b. формула расчета сопротивления при последовательно-параллельном соединении</span>
Ответ:
A/\B=0
А\/В=0
Объяснение:
1 это конъюнкция (логическое умножение, и). Инстина только в одном случае когда истины одновременно два высказывания, в остальные случая ложь. Т.е. если A=0 и B=1 то A/\B=0
2 это дизъюнкция (логическое сложение). Истина когда истинно А, либо В, либо А и в одновременно. Т.е. если А=0 и В=0 то А\/В=0
Нажимаешь пуск, все программы, ищешь папку Майкрософт офис там будет.
помогла ставь спасибо!