Помогите перевести из 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)

Юман 01.05.2025 1

Dim a As Double
a = InputBox("Введите a>=1:")

If a 1 Then
MsgBox ("Ошибка: à1")
Else
If (1 / a) > Sin(a) Then MsgBox ("1/a больше, чем sin(a)")
End If

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ

Помогите перевести из 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.

Думаешь ответы не верны?

Помогите перевести из 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.