Составить программу вывода последнего слова в visual basic *)

Sub pr() dim s as string s = inputbox("введите предложение") s = right(s, len(s) - instrrev(s, " ")) msgbox (s) end sub

Смотри картинку

Объяснение:

После выполнения команды сместиться на вектор (a, b), Чертёжник оказывается в точке (x + a, y + b), относительно начальных координат (x, y).

начальные координаты (1, 1)

сместиться на вектор (4, 0) - Чертёжник оказывается в точке (5, 1)

начальные координаты (5, 1)

сместиться на вектор (0, 4) - Чертёжник оказывается в точке (5, 5)

начальные координаты (5, 5)

сместиться на вектор (-4, -4) - Чертёжник оказывается в точке (1, 1)

Смещения по оси x вправо и по оси y вверх - положительные.

Смещения по оси x влево и по оси y вниз - отрицательные.

Program n1; function pr(a: longint ): boolean; var d: longint; begin if a< 2 then pr: =false else begin pr: =true; for d: =2 to round(sqrt(a)) do if a mod d=0 then pr: =false; end; end; function isch(var x: longint ): boolean; var s: longint; begin s: =0; isch: =false; while ( x< > 0 ) do begin s : = s + (x mod 10); x: = x div 10; end; if s mod 2=0 then isch: =true; end; var k,n,i,c: longint; y: boolean; begin readln(k,n); if (k> =2) and (n< =100000) then begin y: =true; for i: =k to n do begin c: =i; if (pr(c)) and (isch(c)) then begin write(i,' '); y: =false; end; end; if y then write('0'); end; end.