• Переведите пожалуйста с Pascal на VB

    uses crt;
    var k:byte;
    begin
    clrscr;
    repeat
    write('Введите возраст от 1 до 99 k=');
    readln(k);
    until k in [1..99];
    case k of
    11..14:write('Мне ',k,' лет');
    else
    case k mod 10 of
    1:write('Мне ',k,' год');
    2..4:write('Мне ',k,' года');
    else write('Мне ',k,' лет');
    end;
    end;
    readln
    end.

Ответы 1

  • Sub DQXTER()Do    k = CInt(InputBox("Введите возраст от 1 до 99"))Loop Until k >= 1 And k <= 99Select Case kCase 11 To 14    MsgBox "Мне " + Str(k) + " лет"Case Else    Select Case k Mod 10    Case 1        MsgBox "Мне " + Str(k) + " год"    Case 2 To 4        MsgBox "Мне " + Str(k) + " года"    Case Else        MsgBox "Мне " + Str(k) + " лет"    End SelectEnd SelectEnd Sub
    • Автор:

      teagan
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years