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

дано целое число, определить сколько в нём цифр, чему равна сумма, является ли это число четным и сколько в нем сотен? надо написать программу в Q_BASIC. всю четверть проболела, очень нужна помощь(

  1. Ответ
    Ответ дан Asword

    dim a,b,n,s as integer

    input a

    b=a

    n=0

    x=0

    do

    b=b10

    x=b mod 10 +x ' сумма цифр

    n=n+1 'сколько цифр

    loop until b<>0

    print n, x

    if a mod 2 = 0 then print ("четное") else print ("нечетное")

    a=a mod 100 ' сколько сотен

    print a

    'я не помню точно синтаксис фуникций input и print, так что проверь 

     

     

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