Задать вопрос
Сегодня, 00:11

Дана последовательность целых чисел, за которой следует ноль. Определить чередуются ли в ней четные и нечетные числа.

+4
Ответы (1)
  1. Сегодня, 02:50
    0
    не очень понятно условие задачи, решил, как понял

    Program qaf;

    uses crt;

    var x, y, z:integer;

    begin

    clrscr;

    readln (X) ;

    y:=0;

    z:=0;

    while x0 do begin

    if odd (x) then inc (y) else

    inc (z) ;

    readln (x) ;

    end;

    writeln ('кол-во нечётных=', y,'кол-во чётных=', z) ;

    readln;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Дана последовательность целых чисел, за которой следует ноль. Определить чередуются ли в ней четные и нечетные числа. ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы