Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
etyan00
14.08.2021 10:19 •
Информатика
Напишите программный код к следующей : организовать беспрерывный ввод чисел с клавиатуры, пока пользователь не введёт нуль. после ввода нуля, показать на экране количество чисел, которые были введены, их общую сумму и среднее арифметическое.!
Показать ответ
Ответ:
alicahirdeeva
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 оценок)
Популярные вопросы: Информатика
Хей151
27.02.2023 12:29
Тест: операторы целочисленной арифметики div и mod 1. вычислите: 25 div 11 2.27 3 2 2. вычислите: 64 div 9 1 7 6 3. вычислите: (35 div 2) div 5 2 17 3 4. вычислите:...
Natalye71
05.04.2023 05:04
Для кодирования одного пикселя используется 4 байта фотографию размером 1024*2048 пикселей сохранили в виде несжатого файла определите размер получившегося файла в мегабайтах...
mgurbo
21.09.2022 19:14
Сколько бит информации содержит сообщение объемом 32 терабайт?...
Радость10000
21.09.2022 19:14
Сколько бит информации содержит сообщение объемом 32 терабайт?...
Strelok72
21.09.2022 19:14
Для хранения растрового изображения размером 128х256 пикселей используют 64 оттенка цвета. какое количество информации необходимо отвести для хранения данного изображения?...
popkaf
21.09.2022 19:14
Подскажите сайты или книги чтобы подготовиться к егэ информатике с нуля за 4 месяца...
toshakotik
21.09.2022 19:14
Спо информатике. иван и саша вырезали из белой бумаги четыре ёлочки разных размеров.сколькими можно покрасить вырезанные ёлочки в серебристый и зелёный цвета, если количество...
grmej
12.07.2020 00:33
Сканируется изображение размером 10 на 10 см2. разрешающая сканера 600 на 1200 dpi. кол-во цветов 65536. найдите информационный объём....
Алина113111
08.08.2021 01:31
Зададено двузначное число. найдите разность между количеством десятков и одинок. нужно составить программу в pascalabc....
Zlowmak
08.08.2021 01:31
Информатика 2 класс. отметьте нужное. мы получаем тактильные информацию, когда: нюхает, пьем или едим, трогаем, слушаем, смотрим. ответ жду...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.
Вот решение.