1, С клавиатуры вводятся 10 натуральных чисел. Вычислить сумму четных элементов.
5-9 класс
|
2, С клавиатуры вводятся 15 натуральных чисел. Подсчитать количество элементов, кратных 3 и 5.
3, С клавиатуры вводятся 10 натуральных чисел. Вычислить произведение чисел, больших 10, но меньших 20.
1. for i := 1 to 10 do begin readln(n); if (even(n)) then s := s + n; end;
2. for i := 1 to 15 do begin readln(n); if (n mod 3 = 0) and (n mod 5 = 0) then inc(c); end;
3. for i := 1 to 10 do begin readln(n); if (10 <= n) and (n <= 20) then m := m * n; end;
Другие вопросы из категории
а) 333^4 в 10 ичную
б) 1100111^2 в 10 ичную
в)А13В^16 в 10 ичную
Перевести числа из 10ичной системы
а) 16125 в 3ичную
б)131 в 2ичную
в)2563 в 8 ичную
г) 125683 в 16тиричную
монитора с разрешающей способностью 800х600 точек и
палитрой из 65536 цветов.
Читайте также
2, С клавиатуры вводятся 15 натуральных чисел. Подсчитать количество элементов, кратных 3 и 5.
3, С клавиатуры вводятся 10 натуральных чисел. Вычислить произведение чисел, больших 10, но меньших 20.
натуральных двузначных чисел. Определить
среднее арифметическое нечетных чисел;
№3 С клавиатуры вводятся 10 натуральных двузначных чисел. Определить
верно ли, что среди введенных чисел есть число, в котором первая цифра в два раза больше последней.
вход натуральные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0- признак окончания ввода, не входит в последовательность), Количество чисел не превышает 1000. Введенные числа не превышают 30000. Программа должна вывести одно число: сумму всех чисел, кратных 7 и оканчивающихся на 0. Программу надо написать в Pascal
вход натуральные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0- признак окончания ввода, не входит в последовательность), Количество чисел не превышает 1000. Введенные числа не превышают 30000. Программа должна вывести одно число: сумму всех чисел, кратных 7 и оканчивающихся на 0. Программу надо написать в Pascal