Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
veterokttty
14.01.2020 14:47 •
Информатика
Известно сопротивление каждого из 10 элементов электрической цепи , соединенных последовательно. определите общее сопротивление цепи
Показать ответ
Ответ:
ahmetoadilnaz1
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 оценок)
Популярные вопросы: Информатика
помогите2323
31.07.2021 07:30
Составить программу для определения является ли человек молодым (от 0 до 25 лет), зрелым ( от 26 до 60 лет) или пожилым (с 61 года). * Мой ответ...
Karina902
12.05.2021 16:37
Введи правильный ответ Вычислите, сколько минут длится песня «Я на солнышке лежу», если в памяти компьютера она занимает 6000 Кб, частота дискретизации составляет 25600, а разрядность...
ryabchenko20021
01.09.2020 17:17
Створіть проєкт, у якому Чаклун довільно рухався по сцені, інший виконавець Жаба рухається назустріч. Якщо Чаклун торкається Жаби, то рух Чаклуна припиняється, а Жаба перетворюється...
Rushana14
26.07.2022 05:23
СОР 8 КЛАСС Раздел 8.3А «Интегрированные среды разработки программ»...
kudzhan
23.11.2021 03:27
3) Для изготовления одного чайника нужно P граммов, одной тарелки- С граммов , одной чашки - К граммов сырья. требуется для изготовления А штук чайников, 2А штукСоставьте программу,...
кэт2281
24.02.2023 07:17
3) Составьте программу для определения делится ли введенное пользователем число на 5 (напоминаю, что кратность можно определить с команды mod). Если число делится на 5, то пользователю...
artamasvan
11.05.2021 04:57
Чому можна відновити видалений файл?...
Violetta570
01.11.2021 23:16
Что из перечисленного обозначает корневой каталог устройства внешней памяти? Варианты ответов: A\:D\:S\:...
Maksim2553
10.04.2023 07:44
Перевести на . что любит есть на завтрак моргана?...
ssssss22
10.04.2023 07:44
Как проверить написание слова стоит...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.