Задать вопрос
14 марта, 00:18

Ребята, помогите с задачей! Надо ввести ее в pascal

Дан ряд чисел. Количество задается пользователем. Найти кол-во четных чисел оканчивающих на 0 или 2

9 класс

+1
Ответы (1)
  1. 14 марта, 01:49
    0
    var n, i, a, k:integer;

    begin

    write ('Введите количество чисел: ') ;

    readln (n) ;

    writeln;

    for i: = 1 to n do

    begin

    write ('Введите число: ') ;

    readln (a) ;

    if ((a mod 2 = 0) and (a mod 10 = 0)) or ((a mod 2 = 0) and (a mod 10 = 2)) then k:=k+1

    end;

    writeln;

    writeln ('Кол-во четных чисел оканчивающих на 0 или 2: ', k) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Ребята, помогите с задачей! Надо ввести ее в pascal Дан ряд чисел. Количество задается пользователем. Найти кол-во четных чисел ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1. Дан двумерный целочисленный массив. 2. размерность массива задается пользователем. 3. случайные числа генерируются из промежутка (-m, m) 4. m задается пользователем.
Ответы (1)
1) Вычислить длину окружности и площадь круга одного и того же заданного радиуса R. Pascal (желательно с блок-схемой) 2) Найти сумму членов арифметической прогрессии, если известны её первый член, знаменатель и число членов прогрессии Pascal
Ответы (1)
Как описывают переменные в Pascal? Какие стандартные числовые типы языка Pascal вам известны? Что вам известно о соответствии типов переменных в языке Pascal? Какие арифметические операции можно выполнять в Pascal?
Ответы (1)
1) дан массив. найти сумму положительных и нечетных и количество отрицательных четных элементов 2) Дан массив целых чисел.
Ответы (1)
Помогите с прогой. Паскаль. Ввести массив, ввести кол-во элементов в массиве (не через рандом). Ввести число. Найти сколько элементов равны этому числу. (ввод массива и кол-ва эл. Через процедуры)
Ответы (1)