Написать программу, которая определяет, является ли введенное слово палиндромом. Выдать сообщeние в MsgBox. вывести проверяемое слово в двух вариантах.
10-11 класс
|
Visual Basic.
Sub Z1()
Dim x, y As String
x = InputBox("Введите слово: ")
For i = Len(x) To 1 Step -1
y = y + Mid(x, i, 1)
Next i
MsgBox ("Перевернутое слово: " + y)
If x = y Then
MsgBox ("Это палиндром")
Else: MsgBox ("Это не палиндром")
End If
End Sub
Другие вопросы из категории
В ответе используйте только заглавные буквы.
1. Если Миша идёт, то идёт Аня, но не идёт Маша.
2. Если Маша не идёт на олимпиаду, то идёт Аня, но не идёт Миша.
3. Если Аня идёт, то идёт Миша, но не идёт Маша.
Вот программа, которая высчитывает степень числа:
var x,y,st,i,:integer;
begin
st:=1;
write('число:');
readln(y);
write('степень:');
readln(x);
for i:=1 to x do
st:=st*y;
writeln('результат::',st);
end.
Как в этот код добавить: "Если число > 10, то программа должна вывести на экран: "Введите другое число" "
Читайте также
выводит на экран ответ "да" или "нет".
текст.
3)Написать программу, которая определяет является ли слово палиндромом.
4)Написать программу, определяющую какая из букв а или о встречается в тексте первой.
Помогите хотябы одну пожалуйста))Нужно до завтра!))
Ввести с клавиатуры натуральное число.написать программу, которая определяет, кратна ли сумма его цифр 6.