Помогите пожалуйста! с клавиатуры вводятся 10 двузначных чисел. ...
Помогите пожалуйста! с клавиатуры вводятся 10 двузначных чисел. Напечатать те из них, которые делятся нацело на 4, но не делятся на 6. подсчитать их количество.
Есть ответ
18.12.2022
395
Ответ
const
n = 10; //Количество чисел, которое нужно ввестиvar a: array [1..n] of 10..99; {Массив двузначных чисел, которые вводятся с клавиатуры} number, i: integer; //number - количество чисел
begin number:= 0; //Обнуляем счетчик for i:= 1 to n do //Вводим n двузначных чисел begin writeln('Введите двузначное число'); readln(a[i]); end; write('Числа, которые делятся на 4,но не делятся на 6: '); for i:= 1 to n do {Распечатываем числа, которые делятся на 4, но не делятся на 6} if (a[i] mod 4 = 0) and (a[i] mod 6 0) then {если число делится на 4 и не делится на 6, прибавляем к счетчику 1} begin write(a[i], ' '); number:= number + 1; end; writeln; writeln('Количество чисел, которые делятся на 4, но не делятся на 6: ', number);end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
18.12.2022