Информатика | 5 - 9 классы
В Паскале пожалуйста.
Для N вводимых с клавиатуры чисел определить количество четных чисел и сумму нечетных чисел.
"Найти сумму всех положительных чисел вводимых с клавиатуры?
"Найти сумму всех положительных чисел вводимых с клавиатуры.
Если 0, то вывод на печать" Программа Паскаль АВС.
Помогите!
Написать программы в Паскале?
Написать программы в Паскале.
1) нахождение периметра и площади треугольника 2) найти произведение четных числе от 10 до 99 3) для различных вводимых с клавиатуры чисел, найдите сумму положительных нечетных чисел.
4) вычислить у, если.
(смотреть внизу ).
Программа на Паскале?
Программа на Паскале.
Нахождение произведения четных чисел и суммы нечетных чисел меньше 15.
Найдите сумму и произведение трех чисел, вводимых с клавиатуры?
Найдите сумму и произведение трех чисел, вводимых с клавиатуры.
Вычислите сумму всех нечетных чисел из десяти вводимых?
Вычислите сумму всех нечетных чисел из десяти вводимых.
В паскале.
Найти количество четных чисел в промежутке от 1 до N?
Найти количество четных чисел в промежутке от 1 до N.
N вводится с клавиатуры.
В Паскале!
С клавиатуры вводится n чисел?
С клавиатуры вводится n чисел.
Найти сумму и количество трехзначных и нечетных чисел.
Pascal.
Для различных вводимых с клавиатуры целых чисел найдите сумму положительных нечетных?
Для различных вводимых с клавиатуры целых чисел найдите сумму положительных нечетных.
Написать в Паскале, с клавиатуры набрать 15 чисел, программа считает сумму четных чисел?
Написать в Паскале, с клавиатуры набрать 15 чисел, программа считает сумму четных чисел.
Найти сумму целых положительных четных чисел, вводимых с клавиатуры?
Найти сумму целых положительных четных чисел, вводимых с клавиатуры.
Технические условия.
Количество чисел N, которые будут введены с клавиатуры, задают в начале программы (4< ; N< ; 20).
Вы находитесь на странице вопроса В Паскале пожалуйста? из категории Информатика. Уровень сложности вопроса рассчитан на учащихся 5 - 9 классов. На странице можно узнать правильный ответ, сверить его со своим вариантом и обсудить возможные версии с другими пользователями сайта посредством обратной связи. Если ответ вызывает сомнения или покажется вам неполным, для проверки найдите ответы на аналогичные вопросы по теме в этой же категории, или создайте новый вопрос, используя ключевые слова: введите вопрос в поисковую строку, нажав кнопку в верхней части страницы.
Var n, d, i, c, u : integer ;
begin
write('n = ') ;
readln(n) ;
for i : = 1 to n do
begin
readln(d) ;
if d mod 2 = 0 then c : = c + 1 else u : = u + 1 ;
end ;
writeln('Четных ', c) ;
writeln('Нечетных ', u) ; end.