profile
Опубликовано 6 лет назад по предмету Информатика от aleks1yus

Написать программу, подсчитывающую количество четных и нечетных цифр в числе.
На Паскале

  1. Ответ
    Ответ дан Аккаунт удален

    PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018

    Внимание! Если программа не работает, обновите версию!

    begin

     var Число := ReadInteger('Введите натуральное число:');

     var (Четных, Нечетных) := (0, 0);

     while Число > 0 do

     begin

       if (Число mod 10).IsOdd then Inc(Нечетных)

       else Inc(Четных);

       Число := Число div 10

     end;

     Println('Нечетных', Нечетных, 'четных', Четных)

    end.

    Введите натуральное число: 1406439

    Нечетных 3 четных 4

Самые новые вопросы