Опять-таки нужна программа в среде паскаль
10-11 класс
|
На
вход поступает первое число - колличество чисел в
последовательности.Затем вводится последовательность.Подсчитать сумму
чётных чисел больше 30 в последовательности.
var
len, number, i, sum : integer;
begin
write('Количество чисел: ');
readln(len);
sum := 0;
for i := 1 to len do
begin
read(number); {считываем введённое число}
if ((number mod 2 = 0) and (number > 30)) then {проверяем, является ли введённое число чётным и больше ли оно 30}
sum := sum + number; {увеличиваем сумму на это число}
end;
writeln('Сумма = ', sum);
end.
Другие вопросы из категории
1) программное обеспечение
2) схемы ОЗУ
3) архиватор
4)браузер
5)плоттер
6)стример
К software относят:
Печатающее устройства
Сканирующий устройства драйверы
Аппаратное обеспечение утилиты
Программы копировани
Читайте также
Условия: составить алгоритм разветв. структуры
Нужна программа на языке паскаль
Условие:
Напишите программу которая вычисляет среднее арифметическое элементов таблицы А(3*8) . Программа по двумерным массивам.
Написать программу для нахождения среднего арифметического модулей двух чисел.
"Разработать программу,
которая осуществляет в текстовом файле поиск заданных слов. Слова
последовательно вводятся с клавиатуры. Для каждого слова должно определяться
количество вхождений и номера строк текста. Если указанное слово в файле
отсутствует, то программа должна выводить соответствующее сообщение."
И если можно, то и блок-схему.
Заранее спасибо!
посчитать сколько нечетных цифр в н - значном числе! (паскаль)