Вvba дана строка s и число n. преобразовать строку s в строку длины n следующим образом: если длина строки s больше n, то отбросить первые символы, если длина строки s меньше n, то в ее начало добавить символы "." (точка).

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

Sub str_4() on error goto handler dim s as string dim n as integer s = inputbox("stroka? ") n = inputbox("chislo? ") if len(s) > n then s = right(s, n) while len(s) < n s = "." + s wend msgbox (s) end handler: msgbox "oshibka! " end sub

по введенному натуральному числу n(n< =100) обозначаешему количество ворон вывести надпись ,на дереве n ворон.где ворона склоняеться соответсвено n: 'ворон'.'ворона"вороны' в случаем n превышаюшего 100 вывести надпись 'ветка обламилась'

 

uses crt; var n : integer; begin clrscr; repeat write ( 'введите число от 1 до 100 n = ' ); readln (n ); until n> 0; case n of 11..14 : write ( 'сидело ' ,n , ' ворон' ); 1..10 ,15..100 : case n mod 10 of                 1 : write ( 'на дереве сидела ' ,n , ' ворона' );                 2..4 : write ( 'на дереве сидели ' ,n , ' вороны' );                 0 ,5..9 : write ( 'на дереве сидело ' ,n , ' ворон' );                 end else write ( 'ветка обломилась! ' ); end; readln; end.