Задать вопрос
14 августа, 18:34

Помогите написать программу на языке Паскаль. Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. Программа получает на вход количество чисел в последовательности, а затем сами числа.

Кто правильно напишет поставлю лучшее решение!

+3
Ответы (2)
  1. 14 августа, 20:12
    0
    Var n, a, i, k:integer;

    begin

    write ('n = ') ;

    readln (n) ;

    k:=0;

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

    for i:=1 to n do

    begin

    readln (a) ;

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

    end;

    writeln ('k = ', k) ;

    end.

    Пример:

    n = 5

    Вводите числа:

    15

    24

    73

    48

    94

    k = 2
  2. 14 августа, 21:07
    0
    Var a: array [1 ... 100] of integer;

    chis, i: integer;

    begin

    readln (chis) ;

    for i:=1 to chis do readln (a[i]) ;

    write ('Числа кратные 4:') ;

    for i:=1 to chis do if (a[i] mod 4 = 0) then write (a[i], ' ') ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Помогите написать программу на языке Паскаль. Напишите программу, которая в последовательности натуральных чисел определяет количество ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы