Sub Z1()
Dim x As String
f = True
x = InputBox("Введите слово: ")
For i = 2 To Len(x) - 2 Step 2
If Mid(x, i, 1) <> Mid(x, i + 2, 1) Then f = False
Next i
If f = True Then
MsgBox ("Условие выполняется")
Else: MsgBox ("Условие не выполняется")
End If
<span>End Sub</span>
Алгоритм
Ввод массива A[n,m]
Max := A[1,1]; k := 1; p := 1; s := 0;
Алгоритм
Ввод массива A[n,m]
Max := A[1,1]; k := 1; p := 1; c := 0;
Цикл по i от 1 до n (по строкам)
Цикл по j от 1 до m (по столбцам)
Если (A(i, j) = Max) and ((i<>k) or (j<>p)) То c := c+1;
Если (A(i, j) > Max) То
k := i; p := j; c := 1;
Max: = A(i, j);
Конец Если
Конец цикла по столбцам
Конец цикла по строкам
Вывод "Элемент ", Max, " встречается ", c, " раз"
Конец.
Программа
var A: array of array of integer
var i,j,m,n,k,p,s,Max: integer
BEGIN
uses crt; clrscr;
write ('Vvedite kol-vo strok: '); readln (n);
write ('Vvedite kol-vo stolbtsov: '); readln (m);
setlength(A,n,m);
for i=1 to n do
begin
for j=1 to m do
begin
write ('Vvedite element vassiva: '); readln (A[i,j]);
end;
end;
Max := A[1,1]; k := 1; p := 1; c := 0;
for i=1 to n do
begin
for j=1 to m do
begin
if (A(i, j) = Max) and ((i<>k) or (j<>p)) then c := c+1;
if (A(i, j) > Max) then
begin
k := i; p := j; c := 1;
Max: = A(i, j);
end;
end;
end;
write ('Element ', Max, ' vstrechaetsya ', c, ' raz');
END.
<span>ПЕРЕЛИВАНИЕ Решение задач! Математика! Решите мне следующие задачи с решением! </span><span>Переливание!
1. Можно ли, пользуясь 9- и 12-литровыми сосудами, отмерить воду в количестве: а) 6 л; б) 4 л?
2. Как, пользуясь сосудами емкостями 7 л и 12 л, получить 1 л воды?
3. В первый сосуд вмещается 9 л воды, во второй 5 л, а в третий – 3 л. Первый сосуд наполнен водой, а остальные – пусты. Как с их помощью отлить: а) 1 л воды; б) 7 л воды?
4. Бидон емкостью 10 л наполнен молоком. Требуется перелить из этого бидона 5 л в 7-литровый бидон, используя при этом еще один, 3-литровый. Как это сделать?
5. В бочке 18 л бензина. Имеется два ведра по 7 л, в которые нужно на-лить по 6 л бензина, и черпак, объем которого равен 4 л. Как можно осуществить разлив?
7. Как с помощью двух сосудов емкостями 7 л и 4 л разделить поровну молоко, находящееся в 12-литровом бидоне?
8. Можно ли с помощью двух сосудов емкостями 9 л и 11 л набрать из крана 10 л воды?
9. В один стакан налито 5 ложек чая, а в другой – 5 ложек молока. Ложку молока перелили из второго стакана в первый, затем тщательно все перемешали и ложку чая с молоком перелили обратно во второй стакан. Чего оказалось больше: чая во втором стакане или молока – в первом?
10. Имеется три сосуда без делений объемами 4 л, 5 л, 6 л, кран с водой, раковина и 4 л сиропа в самом маленьком сосуде. Можно ли с помощью переливаний получить 8 л смеси воды с сиропом, так чтобы в каждом сосуде воды и сиропа было поровну?
11. Как разделить поровну между двумя семьями 12 литров хлебного кваса, находящегося в двенадцатилитровом сосуде, воспользовавшись для этого двумя пустыми сосудами: 8-литровым и 3-литровым?
12. У Карлсона есть ведро варенья, оно вмещает 7 литров. У него есть 2 пустых ведерка - 4-литровое и 3-литровое. Помогите Карлсону отлить 1 литр варенья к чаю в меньшее (3-литровое) ведерко, оставив 6 литров в большом (7-литровом) ведре.
13. Летом Винни Пух сделал запас меда на зиму и решил разделить его пополам, чтобы съесть половину до Нового Года, а другую половину - после Нового года. Весь мед находится в ведре, которое вмещает 6 литров, у него есть 2 пустые банки - 5-литровая и 1-литровая. Может ли он разделить мед так, как задумал?
14. На другой год Винни Пух запасся 10 литрами меда. Под руками у него два ведра - 7-литровое и 4-литровое. Как ему разделить мед пополам?
15. Для разведения картофельного пюре быстрого приготовления "Зеленый великан" требуется 1 л воды. Как, имея два сосуда емкостью 5 и 9 литров, налить 1 литр воды из водопроводного крана?
16. Для марш-броска по пустыне путешественнику необходимо иметь 4 литра воды. Больше он взять не может. На базе, где имеется источник воды, выдают только 5-литровые фляги, а также имеются 3-литровые банки. Как с помощью одной фляги и одной банки набрать 4 литра во флягу?</span>