Ответ.
Меню
Задать вопрос!
Вход
Регистрация
Задать вопрос!
Меню
Все категории
Фотография и видеосъемка
Знания
Другое
Гороскопы, магия, гадания
Общество и политика
Образование
Путешествия и туризм
Искусство и культура
Города и страны
Строительство и ремонт
Работа и карьера
Спорт
Стиль и красота
Юридическая консультация
Компьютеры и интернет
Товары и услуги
Темы для взрослых
Семья и дом
Животные и растения
Еда и кулинария
Здоровье и медицина
Авто и мото
Бизнес и финансы
Философия, непознанное
Досуг и развлечения
Знакомства, любовь, отношения
Наука и техника
Асмик Арутюнян
[7]
3 года назад
5
Решите в паскале.
Составить программу вычисляющую силу тока в цепи r1, r2, r3, r4, r5, r6, r7, r8, r8, r9, r10, r11, r12, r13, r14, r15, r16, r17, r18, r19, r20 соединение паралельное. Сопротивления заданы в массиве, напряжение вводится.
Знания
Информатика
Ответить
Комментировать
Отправить
1
ответ:
Наталья1708
[2]
3 года назад
0
0
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>
Отправить
Читайте также
как вы понимаете смысл высказывания что написано пером то не вырубишь топором (пожалуйсто лучше поменьше написсать но толково мн
алексей1белов
Это выскаывание означает то что написанна будет вечным как в нашей памяти так и вообщем.Например да нас дошли даже письмена 1290г
0
0
4 года назад
Как решить 3 3 3 3=4; 3 3 3 3=5; 3 3 3 3=7; 3 3 3 3=8; Заранее спасибо)))) Помогите пожалуйста)))
redholl
(3*3+3):3=4
(3+3):3+3=5
3:3+3+3=7
3*3-3:3=8
0
0
3 года назад
Считая, что каждый символ кодируется двумя байтами, оцените информационный объем следующего предложения в кодировке Unicode:Один
Кутюкова Алина [6]
Посчитаем кол-во букв в предложении,(18),
Теперь18*2=36 байтов
Ответ:36 байтов
0
0
4 года назад
В матрице m найти произведение положительных элементов
LongAilend
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var m:=ReadlnInteger();
var a:=matrixRandom(m,m,-20,20);
Println(a);
var p:=1;
for var i:=0 to m-1 do
for var j:=0 to m-1 do
if a[i,j]>0 then p:=p*a[i,j];
println(p);
end.
0
0
3 года назад
Сколько в 64 байтах килобайтов? СРОЧНО!!!
Kareline [62]
64=0,064к.
пожалуйста!:)удачи!
:)______________
0
0
3 года назад
Прочитать ещё 2 ответа
Смотрите также:
Га рисунке представлены результаты взвешивания 5 арбузов определите какой арбуз самый легкий
13
·
1 ответ
Пожалуйста , расшифруйте слова ! Дам 50 баллов . сдыишррбиЪвы - ключ (палец) жоэнйгвяыб - ключ (бит) хэвайньяьуо - ключ (кофе) У
14
·
1 ответ
Какую функцию выполняет в технологии всемирной паутины гиперссылка?
9
·
1 ответ
Помогите пожалуйста !Определи , Какое свойство информации нарушено в каждом из примеров? Напиши название свойства.Свойства инфор
5
·
1 ответ
Сделаете что знаете умоляю
7
·
1 ответ
Помогите преобразовать алгебраические выражения в программные и решите их
6
·
1 ответ
Люди помогите пожалуйста! Как называется программа где нарисован дельфин там буквы нажимать типа клавиатурного тренажёра. Мне ск
5
·
1 ответ
Рассмотри изображение. Определите различия между распечатонным и изображенным на мониторе
5
·
1 ответ
СРОЧНО!!! ПОМОГИТЕ ПЛИЗ!!! (см.в вложения) Задание на тему: "Циклы" В турбо паскале....В коде должно быть: while a>0,001forS=
7
·
1 ответ
Рисунок размером 768 на 96 пикселей закодирован с палитрой 8 цветов. Сколько килобайт занимает в памяти рисунок без учета сжатия
5
·
1 ответ
×
Добавить ответ
Отправить
×
Вход
E-mail
Пароль
Запомнить меня
Войти
Не зарегистрированы?
Пройти быструю регистрацию
×
Регистрация
Ваше имя
E-mail
Пароль
Зарегистрироваться
close
Вход
Регистрация
Задать вопрос!