Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Sergo12345678910
24.04.2022 16:27 •
Информатика
Напишите программный код к следующей : организовать беспрерывный ввод чисел с клавиатуры, пока пользователь не введёт нуль. после ввода нуля, показать на экране количество чисел, которые были введены, их общую сумму и среднее арифметическое.!
Показать ответ
Ответ:
Filip1is
28.05.2020 19:14
Program mm;
var sum, sred, a, n:Real;
begin
sum:=0;
a := 0;
Read(n);
while n<>0 do begin
a:=a + 1;
sum := sum + n;
sred := sum/a;
Read(n);
end;
WriteLn('Colichestvo:', a);
WriteLn('Spednee:', sred);
WriteLn('Summa:', sum);
end.
Вот решение.
0,0
(0 оценок)
Популярные вопросы: Информатика
Indira6767
09.12.2021 11:25
Определите, какое кол-во информации необходимо для кодирования номеров 50 спортсменах, участвовавших в марафоне полностью, с дано и !...
Andy2511
31.07.2021 21:13
Светофор передает сигнал следующего вида коммуникации, аналоговые, дискретные...
Алина06072003
30.01.2020 06:27
Сделал небольшое приложение на C# в Visual Studio. Всё запускается. Как сделать так, чтобы я мог, например, открывать приложение с рабочего стола, или скинуть друзьям, чтобы...
777кошка777
20.05.2021 19:03
L’exercice 4. A. (Образуйте форму 1-го лица множественного числа повелительного наклонения) 1) fermer la porte; 2) écrire une annonce; 3) aller voir ce spectacle; 4) dire bonjour...
lubavoytenko003
11.09.2020 17:06
Найди значение выражения 4a−64b2a−−√−8b√−6b√, если a−−√+b√=73,58....
magosh2001
01.02.2023 01:55
Реши уравнение:t:42,9=7,3:0,2.ответ: t=...
KrIsTaLLiK16
09.06.2020 16:50
Перечислите виды ручной обработки древесины. выберите правильные ответы: Припасовка Пиление Строгание Притирка Разводка Сверление....
aleksandrbersh0
10.08.2021 09:18
ВОПРОСЫ ПО ТРУДУ 1.почему при низком уровне совершенства техники уровень технологической культуры не может быть высоким 2.какую безотходную промышленную технологию вы знаете...
Шенявка
05.01.2023 14:05
Закончите молекулярные уравнения реакций протекающих в растворах и запишите соответствующие им ионные уравнения (полной и сокращенной ) а) AgNo3+HCl- б) NaSo3+H2So4- в) CuCl2+NaOH-...
Викусик11112234556
16.05.2021 03:50
Установите соответствие между графиками функциями и формулы, которые их задают...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var sum, sred, a, n:Real;
begin
sum:=0;
a := 0;
Read(n);
while n<>0 do begin
a:=a + 1;
sum := sum + n;
sred := sum/a;
Read(n);
end;
WriteLn('Colichestvo:', a);
WriteLn('Spednee:', sred);
WriteLn('Summa:', sum);
end.
Вот решение.