Задать вопрос
27 октября, 04:00

Введите с клавиатуры 8 положительных целых чисел. Определите, сколько из

них делится на 3 и оканчивается на 4. Программа должна вывести одно число:

количество чисел, кратных 3 и оканчивающихся на 4.

+5
Ответы (1)
  1. 27 октября, 07:43
    0
    Var b, I:integer;

    a:array [1 ... 8] of integer;

    begin

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

    for I:=1 to 8 do

    read (a[I]) ;

    b:=0;

    for I:=1 to 8 do

    if (a[I]mod3=0) and

    (a[I]mod10=4) then

    b:=b+1;

    writeln (b) ;

    readln;

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