Sub aaa()
    s = InputBox("Введите строку")
    n = CInt(InputBox("Введите длину N"))
    m = Len(s)
    If m > n Then
        s = Right(s, n)
    Else
        If m < n Then s = String(n - m, ".") + s
    End If
    MsgBox "Результат: " + s, vbInformation
End Sub

0 0

4 года назад

Прочитать ещё 2 ответа

Информатика(8 класс) Написать условие для определения принадлежности точки области, ограниченной прямыми x=0, x=2, y=0, y=1.

olegka [7]

d[x][y] - это точка с координатами

0 < d[x] <2

0 < d[y] < 1

То есть d(x0,y0) и d(x,y)

x0 = y0 = 0;

x = 2; y = 1;

0 0

3 года назад

Напишите в Turbo Pascal: b+√(b^2+4ac)/2a - a^3c+b^-2

dedulihka

Program Pr1; Uses Crt;

var a,b,c: integer; y: real;

begin clrscr;

Writeln('введите a,b,c');

Readln(a,b,c);

y=b+sqrt(b*b+4*a*c)/(2*a)-a*a*a*c+b*b-2;

Writeln('Y=', y:5:2);

Readln;

End.

0 0

4 года назад

Подпишите элементы интерфейса программы Word

Emelya [10]

Объяснение:

1)пуск

2) копировать

3) Незнаю

4) строка заголовока

5)инфо

6) вставить

7) Незнаю

8) Незнаю

9) Незнаю

10) Незнаю

11(Незнаю

12) остальное Незнаю

0 0

4 года назад