Исполнитель калькулятор имеет только две команды, которым присвоены номера: 1. умножь на 2 2. прибавь 1 выполняя команду номер 1, калькулятор умножает число на экране на 2, а выполняя команду номер 2, прибавляет к числу на экране 1. напишите программу, содержащую не более 5 команд, которая из числа
6 получает число 33. укажите лишь номера команд.
Программа:
X = [int(input("Введите элемент: ")) for _ in range(10)]
print("\n")
Y = [int(input("Введите элемент: ")) for _ in range(10)]
S = [el_X for el_X in X for el_Y in Y if el_X == el_Y]
print(S)
Если программа выше сложна для понимания, предложу её в другом виде:
X = []
Y = []
for _ in range(10):
num = int(input("Введите цифру: "))
X += [num] # То же, что и X.append(num)
print("\n")
for _ in range(10):
num = int(input("Введите цифру: "))
Y += [num] # То же, что и Y.append(num)
S = []
for el_X in X:
for el_Y in Y:
if el_X == el_Y:
S += [el_X]
print(S)
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Введите строку:').ToLower;
var c:=ReadlnChar('Введите искомую букву:').ToLower;
Writeln('Буква встречается ',s.Where(a->a=c).Count,' раз(а)')
end.
Пример
Введите строку: А роза упала на лапу Азора
Введите искомую букву: а
Буква встречается 8 раз(а)
// PascalABC.NET 3.2, сборка 1370 от 24.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Введите фразу:');
s.Replace('Ты','Я').Replace('ты','я').Println
end.
Пример
Введите фразу: Тыков ест тыблоко
Яков ест яблоко
// PascalABC.NET 3.2, сборка 1370 от 24.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Введите строку:');
var s1:=ReadlnString('Что найти?');
var s2:=ReadlnString('Чем заменить?');
s:=s.Replace(s1,s2);
s.Println;
end.
Пример
Введите строку: мама, мама, что я буду делать, мама, мама, как я буду жить?
Что найти? мама
Чем заменить? папа
папа, папа, что я буду делать, папа, папа, как я буду жить?