Задать вопрос
30 ноября, 07:47

Ввести с клавиатуры 10 целых чисел. Подсчитать количество нечётных (в паскаль турбо)

+3
Ответы (1)
  1. 30 ноября, 09:23
    0
    Program;

    Uses vincrt;

    Var i, n: integer

    Begin

    i:=0;

    writeln ('n=') ;

    Raedln (n) ;

    If (n mod 2 = 1) then i:=i+1;

    End.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Ввести с клавиатуры 10 целых чисел. Подсчитать количество нечётных (в паскаль турбо) ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Ввести слово и число раз (Ввод; паскаль, 3). Вывести это слово так: паскаль паскаль паскаль паскаль паскаль паскаль
Ответы (1)
1. Что является составляющими языка? а) Синтаксис; б) Семантика; в) Грамматика; г) Морфология. 2. Средой Что есть визуального программирования? а) Турбо Паскаль; б) Турбо в Excel; в) Турбо Дельфи; г) базовые. 3.
Ответы (1)
1. Ввести с клавиатуры длину и ширину прямоугольной двери. Кроме того, ввести длину, ширину и высоту шкафа - прямоугольного параллелепипеда. Выяснить, можно ли пронести шкаф через дверь, не разбирая его. 2. Ввести три вещественных числа с клавиатуры.
Ответы (1)
Помогите решить задачи на паскаль. 1) Дан массив случайных чисел (количество элементов вводите с клавиатуры). Найти произведение всех элементов массива. 2) Дан массив случайных чисел (количество элементов вводите с клавиатуры).
Ответы (1)
Ввести N целых натуральных чисел в массив и вывести его на экран (1 ... 1000) Подсчитать сумму всех элементов меньше 10 Найти количество нечетных элементов кратных 7 Паскаль
Ответы (2)