сервис вопросов и ответовНапишите программу, которая в последовательности целых чисел находит сумму четных чисел в диапазоне от 5 до 25. Программа получает на вход целые числа,
5-9 класс|
|
количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30000. Программа должна вывести одно число: сумму четных чисел в диапазоне от 5 до 25. Входные данные : 4, 16, 17, 26,0 Выходные данные: 16
Redisoon
11 дек. 2015 г., 2:05:32 (8 лет назад)
Jangari
11 дек. 2015 г., 3:21:40 (8 лет назад)
Program Summa;
Uses Crt;
var s,n,c:integer;
begin
clrscr;
write('Введите числа коннц ввода 0: ');
s:=0;c:=0;
repeat
readln(n);
c:=c+1;
if (n mod 2)=0 then
if ((n>=5)and (n<=25)) then s:=s+n;
until (n=0) or (c=1000) ;
write('Сумма ',c,' чётных чисел в диапазоне от 5 до 25:',s);
readkey;
end.
Ответить
Другие вопросы из категории
1)Определить какое из двухзначных чисел имеет наибольшую сумму цифр 2)Пользователь ввёл двузнч числа.Поменяйте цифры данного числа местами 3)Проверить
есть ли в трёхзначном числе два одинаковых цифры
1для какого из приведенных чисел ложно высказывание :НЕ(число<50)ИЛИ(четное число)?
1)123 ;2)56;3)9;4)8
в оперативной памяти могут храниться
а)данные и адреса
б)программы и адреса
в)программы и данные
г) данные и быстроедйствие
Читайте также
Пожалуйста помогите решить задачу: Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и
оканчивающихся на 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 4.
Пример работы программы:
Входные данные Выходные данные
14 168
24
144
22
12
0
Напишите программу, которая в последовательность натуральных чисел определит значение наибольшего из всех нечетных введеный чисел. Программа
получает на вход целые числа, количество введеных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входят в последовательность) .
Количество чисел не привышает 1000. Введеные числа не привышают 30000.
Программа должна вывести одно число - наибольшее из всех нечеиных введеных чисел.
Пример работы программы:
Входные данные Выходные данные
15 17
20
17
0
хееееееееелп ми!!!ПАСКАЛЬ, Напишите программу, которая в последовательности натуральных чисел определяет количество всех чисел, сумма единиц и десятков
кратна 3. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).
1)Напишите программу,которая в последовательности целых чисел определяет количество трехзначных чисел,не кратных 5 и 7 и не заканчивающ
ихся 0 или 1.
Программа получает на вход целые числа от -3000 до 3000.
2)Напишите программу,которая в последовательности целых чисел вычисляет среднее арифметическое среди двухзначных чётных чисел,делящихся на 3.
НУЖНО СЕГОДНЯ! 66 БАЛЛОВ!
Напишите программу, которая в последовательности целых чисел находит среднее арифметическое чисел, кратных 9, или сообщает, что таких чисел нет.
Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не является членом последовательности). Количество чисел не превышает 100. Введённые числа по модулю не превышают 300. Программа должна вывести среднее арифметическое чисел, кратных 9, или вывести NO, если таких чисел в последовательности нет.
Вы находитесь на странице вопроса "Напишите программу, которая в последовательности целых чисел находит сумму четных чисел в диапазоне от 5 до 25. Программа получает на вход целые числа,", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.