Сколько нечетных среди n введенных причем надо вводить эти числа с клавиатуры n раз
5-9 класс
|
begin
write('Введите n: ');
var n := ReadInteger;
var c := 0;
for var i:=1 to n do
begin
write ('Введите целое число: ');
var x := ReadInteger;
if x mod 2 <> 0 then
c += 1;
end;
writeln('Количество нечетных равно ', c);
end.
Другие вопросы из категории
1 малый объем графических файлов
2 фотографическое качество изображения
3 возможность просмотра изображения на экране графического дисплея
4 высокое качество печати изображения на принтере
5 возможность поточечного редактирования изображения
Читайте также
Вводятся три числа. Вывести на экран число с минимальной суммой цифр.
Помогите пожалуйста в Паскале
2.С клавиатуры вводится действительное число p.Записать отдельно его целую часть C.
Помогите составить программу.
сумму. 346.Подсчитайте, сколько среди данных N чисел нулей, положительных чисел, отрицательных чисел. Вводится число N, а затем N чисел. Необходимо вывести сначала число нулей, затем число положительных и отрицательных чисел. 347.Вводится число N, а затем N чисел. Выведите YES, если среди введенных чисел есть хотя бы один нуль, или NO в противном случае.
PS: использовать функцию деления по модулю:
a mod b- выдает остаток при делении числа а на число b
15 mod 2=1
15 mod 3=0