Bandith
5 год назад
Дана числовая последовательность случайных натуральных чисел не превышающих число 255. Конец последовательности число ноль. Проанализировать последовательность и вывести на экран количество, в этой последовательности, нечетных чисел, которые лежат в диапазоне от 1 до 9 включительно.Пример работы программы:Ввод: 20 5 67 210 3 45 0Вывод: 2Ввод: 10 13 17 19 10 0Вывод: 0Ввод: 2 4 6 8 10 14 15 0Вывод: 0
ОТВЕТЫ
Helena
Oct 24, 2020
program pos;
var
c, n: integer;
begin
c := 0;
while (True) do
begin
readln(n);
if n = 0 then
break
else
if (n mod 2 = 1) and (n >= 1) and (n <= 9) then
c := c + 1;
end;
writeln('количество: ', c);
end.
var
c, n: integer;
begin
c := 0;
while (True) do
begin
readln(n);
if n = 0 then
break
else
if (n mod 2 = 1) and (n >= 1) and (n <= 9) then
c := c + 1;
end;
writeln('количество: ', c);
end.
573
Смежные вопросы:
