• Помогите перевести из Turbo Pascal в Visual basic
    var
    a: real;
    begin
    Write('Введите a>=1:'); Readln(a);
    if a<1 then Writeln('Ошибка: а<1')
    else begin
    if 1/a>sin(a) then Writeln('1/a больше, чем sin(a)');
    if 1/a end;
    Readln;
    end.

Ответы 1

  • Dim a As Doublea = InputBox("Введите a>=1:")If a < 1 Then    MsgBox ("Ошибка: à<1")Else    If (1 / a) > Sin(a) Then MsgBox ("1/a больше, чем sin(a)")End If
  • Добавить свой ответ

Войти через Google

или

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

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

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