Решите в паскале. Составить программу вычисляющую силу тока в цепи r1, r2, r3, r4, r5, r6, r7, r8, r8, r9, r10, r11, r12, r13, r
Наталья1708 [2]
Uses crt;
const R: array[1..20] of integer =(1, 2, 3, 4, 5, 6, 7, 8, 9, 10,
11, 12, 13, 14, 15, 16, 17, 18, 19, 20);
var I:array [1..20] of real;
U,x:integer;
SUM:real;
begin
write('U='); readln(U);
for x:=1 to 20 do
begin
write('R[',x,']:',R[x],' ');
I[x]:=U/R[x];
SUM:=SUM+I[x];
writeln('I[',x,']:',I[x]:5:3);
end;
writeln('I=',SUM:5:3);
<span>end.</span>
существует режим «Edit Mode», который позволяет изменять длину или диаметр сегмента, и инструменты, позволяющие заменить круг на линию (и обратно), дублировать сегмент или "обездвижить" его в главном окне аниматора. Фигуры сохраняются в формате .stk.
если нужно подробней напиши в личку
Ответ:
24,3₈
Объяснение:
7,5₈
+ 14,6₈
---------
24,3₈
Система восьмеричная, поэтому складываем как в десятичной, но если число превышает 7, добавляем еще 2 (потому что осенование системы 8 на 2 меньше, чем 10, в которой считаем).
5 + 6 = 11 и +2 = 13. Тройку пишем, +1 в следующий разряд
4 + 7 + 1 = 12 и +2 = 14. Четверку пишем, +1 в следующий разряд.
1 + 1 = 2.
Uses crt;var a,b,c,d:integer;proc:real;beginclrscr;write('Введите кол-во «5» | ');readln(a);write('Введите кол-во «4» | ');readln(b);write('Введите кол-во «3» | ');readln(c);writeln('======================');d:=a+b+c;writeln('Всего оценок: ',d);writeln('======================');writeln('* Из них *');proc:= (a*100)/d;writeln('«5» - ', proc:0:2,' %');proc:= (b*100)/d;writeln('«4» - ', proc:0:2,' %');proc:= (c*100)/d;writeln('«3» - ', proc:0:2,' %');end.
