20
Аноним
Информатика
25 мая 09:42

Язык pascal ABC Введите 5 положительных уныл чисел, вычислите сумму тех из них которые делятся на 4, и оканчиваются на

6. Если таких чисел нет, то вывести об этом сообщение.

Ответ или решение1

var
   sum, i, x : integer;              // объявляем переменные целочисленного типа.
   arr : array [1..5] of integer; // объявляем массив.
Begin
   writeln('Введите 5 целых чисел для заполнения массива:'); // вывод строки на экран.
       for i:= 1 to 5 do        // начало цикла.
        begin
           readln(arr[i]);    // заполняем элемент массива.
           if ((arr[i] mod 10 = 6) and (arr[i] mod 4 = 0)) then // если элемент оканчивается на 6 и                                                                                         // делится на 4.
               begin
                    sum := sum + arr[i];                // считаем сумму элементов.
                    x := x + 1;                             // считаем количество элементов.
               end;
        end;
    if (x = 0) then

        writeln('Элементов кратных 4 и оканчивающихся на 6 в массиве нет.')
    else 

        writeln('Сумма элементов кратных 4 и оканчивающихся на 6 равна: ', sum);
End.

0 / 10000
ВходРегистрация

Вход

или

Регистрация