Var s1,s2 : String;
Begin
Readln(s1);
Readln(s2);
While (Length(s1)>0) and (Length(s2)>0) do
Begin
Delete(s1,1,1);
Delete(s2,1,1);
end;
Writeln(s1+s2);
end.

0 0

4 года назад

Прочитать ещё 2 ответа

Напишите программу, которая считает сумму цифр введённого числа. Язык Python. Спасибо,кто поможет

flash12 [2]

Ну я бы на Питоне сделал бы это так:

<span>n = input()
s = <span>0
</span>for i in n:
s += int(i)
print("Сумма цифр:", s)

Небольшая хитрость. На входе получаем не число, а строку. А дальше каждый символ строки переводим в цифру и суммируем.
</span>

0 0

4 года назад

Помогите пожалуйста создать программу на языке VBA в Excel Задача: Ввести массив А (N), N>5. Найти минимальный элемент массив

wild apple [161]

Sub m2()
Cells.Clear
Dim n As Integer, i As Integer, min As Integer
n = InputBox("n(>5) = ")
Cells(1, 1).Value = "n = " + Str(n)
ReDim a(1 To n)
For i = 1 To n
a(i) = InputBox("a(" + Str(i) + ")")
Next i
Cells(2, 1).Value = "Исходный массив"
Range(Cells(3, 1), Cells(3, n)).Value = a
min = a(1)
For i = 2 To n
If a(i) < min Then min = a(i)
Next i
Cells(4, 1).Value = "min = " + Str(min)
Cells(5, 1).Value = "Полученный массив"
For i = n - 4 To n
a(i) = min
Next i
Range(Cells(6, 1), Cells(6, n)).Value = a
End Sub

0 0

4 года назад

Бабушка плавала на пароходе Иван Крузенштерн , а дедушка служил на судне, названном в честь ........?

Koshka1930 [7]

В честь Кристофора Колумба

0 0

4 года назад

Выполните операцию умножения над двоичными числами:а)1010*11;б)111*101;в)1010*111

Выполните операцию умножения над двоичными числами:а)101011;б)111101;в)1010*111