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

Язык 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.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт