Задать вопрос
31 августа, 08:36

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

+3
Ответы (1)
  1. 31 августа, 10:01
    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)