Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
tanya2017kazanova
17.03.2022 15:03 •
Информатика
Известно сопротивление каждого из 10 элементов электрической цепи , соединенных последовательно. определите общее сопротивление цепи
Показать ответ
Ответ:
alla073
06.10.2020 03:21
Const
N = 10;
Var
R:array[1..N] of integer;
i,Ro:integer;
Begin
Ro:=0;
For i:= 1 to N do
Begin
Write('R',i,' = ');
ReadLn(R[i]);
Ro:=Ro+R[i];
End;
WriteLn('Ro = ',Ro);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Neу4
12.01.2023 04:17
Заполни таблицу, выбрав верные ответы...
aruzhaan2003
30.04.2020 09:42
Используя поисковую систему Bing (или любую другую на выбор), а также знание о том, что для шифрования использовался алгоритм Цезаря со сдвигом 15, расшифруй строку: spip, xcudgbpixdc,...
Емаилком002
08.06.2022 02:06
Что такое график? 1) Поверхность, содержащая полностью каждую прямую, соединяющую любые её точки 2)Объединение разрозненных фрагментов одного файла в один большой для повышения...
olgakoryakina
10.01.2021 20:52
Отметь результат работы фрагмента программы: s := 1;for i := 1 to 20 do s := s * arr[i];Выбери верный вариант:1)произведение всех чисел от 1 до 202)произведение всех элементов...
MrHard1
03.11.2021 15:49
Дан одномерный целочисленный массив. Необходимо “сжать” массив, удалив из него каждый второй элемент, а оставшиеся элементы заменить нулями. Провести тестирование программы при...
diamond31
23.09.2020 11:36
Напишите программу, которая заполняет массив из 20 элементов случайными числами на отрезке[0; 200] и считает число двузначных чисел в массиве. в питоне...
Zubactick
07.11.2021 14:58
1. Согласно этой концепции финформация существует лишь в человеческом сознании, в человеческом восприятий а) атрибутивная; б) функциональная; В) антропоцентрическая...
murzilk
10.06.2021 12:19
12 J 13 J1614with jewellery worth £2,000, but 5)(arrest) later, as they 6)(try) to leave the country.B Floods 1)(cause when a river2)(burst) its banks. This can happenif there...
chuvak1414
10.06.2021 12:19
нужно Установите соответствие. Укажите цифра-буква...
katrin7878
18.10.2021 19:35
Сколько будет в 10 сутках часов?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
N = 10;
Var
R:array[1..N] of integer;
i,Ro:integer;
Begin
Ro:=0;
For i:= 1 to N do
Begin
Write('R',i,' = ');
ReadLn(R[i]);
Ro:=Ro+R[i];
End;
WriteLn('Ro = ',Ro);
End.