составить программу вывода последнего слова в предложении.....в visual basic пожалуйста*)
10-11 класс
|
Sub pr()
Dim s As String
s = InputBox("Введите предложение")
s = Right(s, Len(s) - InStrRev(s, " "))
MsgBox (s)
End Sub
Другие вопросы из категории
var a:real; i:integer;
a:=1; i:=1;
while i<5 do i:==i+1; a:=a+1*i;
Читайте также
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE
2. Составьте блок-схему алгоритма и программу вычисления в массиве A(10) количества положительных элементов.
3*. Составьте программу заполнения массива, не используя клавиатуру, числами: 1, 3, 5, 7, 9, 11, 13, 15, 17, 19.
среди них.Ничего кроме этого программа выводить не должна. При использовании системы Free Pascal для представления целых чисел используйте тип LongInt. Надо сделать в Pascal
1. Если сумма двух каких либо введеных чисел меньше 100. в противном случае, программа должна вывести 0. ничего, кроме число 0 или 1 программа выводить не должна каждое число не превышает 10000
2. Составить программу для упорядоченное двух элементов по убыванию.