Задать вопрос
5 мая, 06:58

Запросить 40 чисел подсчитать количество чисел равных 0

+5
Ответы (1)
  1. 5 мая, 10:47
    0
    Program n1;

    var i, k, a: integer;

    begin

    k:=0;

    for i:=1 to 40 do begin

    readln (a) ;

    if a=0 then k:=k+1;

    end;

    write (k) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Запросить 40 чисел подсчитать количество чисел равных 0 ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Программа для Pascal abc Запросить два числа затем запросить их произведение если пользователь ошибся повторить запрос
Ответы (1)
Модифицируем алгоритм следующим образом: Алгоритм НОДм цел: m, n, k; { Запросить m; Запросить n; k: = m + n; Делать пока (не (n = 0)) { m: = n; n: = k mod n; k: = m; } Сообщить m; } Запрограммируйте и отладьте модифицированный алгоритм.
Ответы (1)
Запросить у пользоватпля 3 целых числа. Подсчитать сумму отрицательных чисел среди введёных.
Ответы (1)
1) В диапазоне от 0 до 100 подсчитать количество чисел оканчивающихся на 3. 2) В диапазоне от 0 до 50 подсчитать количество чисел сумма цифр которых равна 3.
Ответы (1)
1) Составить массив из 10 целых чисел, вывести его на экран и подсчитать количество элементов массива, значения которых не превышают трех 2) Составить массив из 10 целых чисел и вывести его на экран, подсчитать сумму отрицательных и положительных
Ответы (1)