Задание:
Помогите пожалуйста! С клавиатуры вводятся 10 двузначных чисел. Напечатать те из них, которые делятся нацело на 4, но не делятся на 6. Подсчитать ихколичество.
Решение:
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.
Знаете другой ответ?