Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
shtoshpulodov
09.09.2021 16:20 •
Информатика
Компьютер выводит среднее арифмитическое число не оканчивающееся на 5 и на 8. решить!
Показать ответ
Ответ:
Zoi568
06.10.2020 01:59
Var
s,n,k:integer;
begin
Writeln('введите натуральные числа, 0 - окончание ввода');
k:=0; s:=0;
repeat
Read(n);
if n<>0 then
if n mod 10 = 8 then begin k:=k+1; s:=s+n end
until n=0;
if k>0 then Writeln(s/k:0:4)
else Writeln(0)
end.
Пример
введите натуральные числа, 0 - окончание ввода
34 17 8 32 1424 28 7 0
18.0000
0,0
(0 оценок)
Популярные вопросы: Информатика
резной777
04.06.2020 13:37
By Python Написать программу, которая по введенным целочисленным координатам трех точек на плоскости вычисляет стороны образованного треугольника и длину высоты,...
senator95p0dese
31.01.2022 07:50
Продолжите фразу: «Относительная ссылка – это адрес ячейки относительно…» 1 Начала таблицы. 2 Текущей ячейки. 3 Указанной в ссылке ячейки 4 ячейки А1...
AlifZnanija
29.01.2020 01:09
5. Яка подія запустить виконання програми? А.При зміні гучності Б.Натиснення клавіши Пропуск...
vitaming
24.10.2021 20:02
Восстановите ip-адрес: а)2.19 б).50 в)5.162 г)22 а)3.133 б)22 в).73 г) 4.13...
yanayana6
02.09.2022 16:34
Решите систему неравенств! ! 10-4х больше 0 3х-1 больше 5...
figakuvesi
02.09.2022 16:34
Установи закономерность.дополни каждый ряд тремя числами 100,200,150,250,200...
mrcoblov
02.09.2022 16:34
Решение и ответ вершины треугольника вписанного в окружность, делят ее отношение, 1: 5: 4. найдите менший угол треугольника?...
mirnayamilena
02.09.2022 16:34
Почему положение не всегда определяет успехи страны...
ник4991
02.09.2022 16:34
Мама купила 1 кг конфет и 2 кг сахара. она заплатила за покупку 110 руб. если бы она купила 2 кг конфет и 1 кг сахара, то заплатила бы 130 руб.сколько стоит 1 кг...
anilin2002
02.09.2022 16:34
Старинные слова 10-15 слов заранее ответьте оч надо...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
s,n,k:integer;
begin
Writeln('введите натуральные числа, 0 - окончание ввода');
k:=0; s:=0;
repeat
Read(n);
if n<>0 then
if n mod 10 = 8 then begin k:=k+1; s:=s+n end
until n=0;
if k>0 then Writeln(s/k:0:4)
else Writeln(0)
end.
Пример
введите натуральные числа, 0 - окончание ввода
34 17 8 32 1424 28 7 0
18.0000