Язык pascal ABC Введите 5 положительных уныл чисел, вычислите сумму тех
Язык pascal ABC Введите 5 положительных уныл чисел, вычислите сумму тех из их которые делятся на 4, и заканчиваются на 6. Если таких чисел нет, то вывести об этом известье.
Задать свой вопрос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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.
Разные вопросы.
Математика.