Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
lisa20060701
27.02.2021 10:34 •
Информатика
Составьте программу для вычисления произведения целых чисел, их среднее арифметическое до тех пор пока не будет введён 0 используя цикл repeat
Показать ответ
Ответ:
мюсьера
06.10.2020 11:05
Var
A,S,P:real;
k:integer;
Begin
S:=0;
P:=1;
k:=-1;
Repeat
Read(A);
if A <> 0 then P:=P*A;
S:=S+A;
k:=k+1;
Until A = 0;
WriteLn('P = ',P);
WriteLn('Sr = ',S/k);
ReadLn
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
эйй4
27.07.2021 13:06
35 . как по записи числа в двоичной системе счисления определить что оно чётное? делится на 4? делится на 8? делится на 32?...
ivan111111
23.08.2020 19:41
НА КУМИРЕ НА КУМИРЕ НА КУМИРЕ 1) Ввести целое число и определить, верно ли, что в нём ровно 3 цифры. Пример: Введите число: Введите число: 123 1234 Да. Нет. 2)Ввести целое...
vladkunets78
14.02.2021 09:19
Сообщение о том, что на эскалаторе повреждена 18-я ступенька, несёт 7 бит информации. сколько ступенек может быть на эскалаторе?...
lenusj1975197514
05.01.2021 01:28
Вот такая ситуация хочу встать в афк на ночь пофармить уровень но из-за голода теряю не только уровень но и некоторые вещи какой мод или фичу майнкрафта использовать для...
khvvt1
31.08.2021 19:15
Ребят у меня вопрос, сидела на трансе в вк и тут выходит табличка трансляция не доступна , после я смогла вновь зайти, но тут человек закончил трансляцию. О чём говорит...
Serlous
07.07.2021 06:41
Напишите программу получения следующего узора для исполнителя Робот...
armate
29.01.2021 12:31
Япредпочитаю летние каникулы! во первых я могу, много гулять с друзьями, ходить в кино, кататься на велосипеде! во вторых, я могу не учиться! летом, я предпочитаю находиться...
va1k
29.01.2021 12:31
Укаких из следующих организмов гаметы имеют жгутики? возбудитель рака картофеля гинкго фукус горбуша порфира дождевой червь колокольчик ришта омар мухомор...
ALEXSEENKOALEX
29.01.2021 12:31
Почему современное общество можно назвать обществом риска?...
Stasonka
29.01.2021 12:31
Как можно ! сочинение на тему в какой сказке я-бы хотел побывать и,что там изменить? 60 !...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
A,S,P:real;
k:integer;
Begin
S:=0;
P:=1;
k:=-1;
Repeat
Read(A);
if A <> 0 then P:=P*A;
S:=S+A;
k:=k+1;
Until A = 0;
WriteLn('P = ',P);
WriteLn('Sr = ',S/k);
ReadLn
End.