сервис вопросов и ответовнапишите программу которая в последовательности целых чисел определяет среднее арифметическое положительных чисел кратных 8
5-9 класс|
|
Руслан200
17 февр. 2014 г., 23:29:19 (10 лет назад)
Viksi1
18 февр. 2014 г., 1:48:02 (10 лет назад)
var
d: integer;
n := 0;
s := 0;
begin
repeat
readln(d);
if (d > 0) and (d mod 8 = 0) then begin
s := s + d;
n := n + 1;
end
until d = 0;
writeln('Avg = ',s / n)
end.
Ответить
Другие вопросы из категории
Пожалуйста!решите!умоляю!
К берегу реки, где была лодка, вмещающая только 2 человек, подошли 2 разбойника и 2 путешественника. Разбойники не решались напасть на путешественников. В случае если на берегу останется 1 путешественник и 2 разбойник то они нападут на него. Как надо переправится через реку разбой и путешественник чтоб последние не смогли избежать нападения?
Все ученики класса обменялись своими фотографиями.
Всего было передано 600 фотографий. Сколько человек в классе?
Читайте также
1)Напишите программу,которая в последовательности целых чисел определяет количество трехзначных чисел,не кратных 5 и 7 и не заканчивающ
ихся 0 или 1.
Программа получает на вход целые числа от -3000 до 3000.
2)Напишите программу,которая в последовательности целых чисел вычисляет среднее арифметическое среди двухзначных чётных чисел,делящихся на 3.
НУЖНО СЕГОДНЯ! 66 БАЛЛОВ!
Напишите программу, которая в последовательности целых чисел находит среднее арифметическое чисел, кратных 9, или сообщает, что таких чисел нет.
Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не является членом последовательности). Количество чисел не превышает 100. Введённые числа по модулю не превышают 300. Программа должна вывести среднее арифметическое чисел, кратных 9, или вывести NO, если таких чисел в последовательности нет.
Программа в Паскале! "Напишите программу, которая в последовательности целых чисел определяет сумму максимального и минимального чисел .
Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом ноль (ноль – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30000."
Отдал все пункты что есть! Помогите!
Напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 4 и оканчивающихся на 0. Программа получает на вход целые
числа, количество введеных чисел неизвестно, последовательность чисел заканчивается числом 0 (0-признак окончания ввода, не является членом последовательности). Количество чисел не превышает 1000. Введеные числа по модулю не превышают 30000. Программа должна вывести число: количество чисел, кратных 4 и оканчивающихся на 0.
Помогите пожалуйста ! срочно надо!!!...в заданной последовательности целых чисел определите сумму элементов кратных 10! пример задачки вот именно под
типо по такой же системе которую щас напишу! program Maximum; i,n,max:integen; begin writeln ( 'введи элементы массива для поиска максимума'); for i:=1 to 10 do begin write ('a [', i ,']=');readln (a [ i ] ) ;end; max:=a[1]; for i = 2 to 10 do if a [ i ] > max then begin max:=a [ i ] ; n:= i ; end; writeln ('найти наибольший элемент ',max ,' под номером ', n); вот наподобие этого примера нужно построить мою задачу! в заданной последовательности целых чисел определите сумму элементов кратных 10. Помогите пожалуйста!!!
Вы находитесь на странице вопроса "напишите программу которая в последовательности целых чисел определяет среднее арифметическое положительных чисел кратных 8", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.