Напишите программу(Паскаль), которая считывает с клавиатуры последовательность символов и выводит на экран количество нечетных цифр :с
10-11 класс
|
var
n, k, a, i: integer;
begin
write('Введите кол-во чисел: ');
readln(n);
for i:=1 to n do
begin
read(a);
if ((a mod 2) = 1) then inc(k);
end;
write(k);
end.
С использованием оператора repeat:
var
n, k, a, i: integer;
begin
write('Введите кол-во чисел: ');
readln(n);
repeat
read(a);
if ((a mod 2) = 1) then inc(k);
inc(i);
until i=n;
write(k);
end.
Другие вопросы из категории
присоединения текст абсолютно не изменился, а мне нужно, чтобы он принял параметры созданного мной шаблона
как это сделать?
племени Мульти содержало 100 символов, а письмо племени Пульти — 50 символов. Сравните объёмы информации, содержащиеся в письмах.
Письмо Пульти = 75% Письма Мульти
Письмо Пульти = 50% Письма Мульти
Письмо Мульти = 75% Письма Пульти
Письмо Пульти = 60% Письма Мульти
Читайте также
недопустимым. Для проверки вводимых с клавиатуры данных воспользуйтесь оператором REPEAT :ссс
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.
подсчитать количество отрицательных элементов
сумму положительных элементов
ВЫВОДИТ НА ЭКРАН НОМЕРА ВСЕХ ЭЛЕМЕНТОВ, ЗНАЧЕНИЯ КОТОРЫХ =0
Программу реализовать с помощью трех циклических алгоритмов:
1) Цикл со счетчиком for
2) Цикл с предусловием while
3) Цикл с постусловием repeat
В программе предусмотреть ситуацию, когда пользователь вводит значение B ‹ A
Пример 1:
Пользователь вводит числа A=5, B=10. Сумма чисел: 5+6+7+8+9+10. Вывод на экран: 45
Пример 2:
Пользователь вводит числа A=7, B=4. Сумма чисел: 4+5+6+7. Вывод на экран: 22
Пример 3:
Пользователь вводит числа A=5, B=5. Сумма чисел: 5. Вывод на экран: 5