text = "Программа! " # Переменная text Содержит строку "Программа! "
print(text [0:10]) # Индексирование каждого символа строки. [:] - Это срез. [0:10] - Вывести 10 символов - Целая строка, но только без пробела в конце строки, тк заданная команда выводит все символы строки (Если было бы [0:11] - то пробел конечно же был бы включен)
print(text [0:4]) # Вывести символы от индекса 0 - Это символ П, до индекса 4 - Это символ Р. Результат: Прог
print(text [-2]) # Отрицательное значение, обычно применяется для того, чтобы взять что-либо с конца строки, списка и т.п..
print(text [::3]) # Вывести каждый символ с чередованием 3 символа. Так скажем... Перешагнуть 2 символа, и уже 3й распечатать
Адекватная версия:
PascalABC.NET
begin
var expr := Readstring();
expr.Split(' ')[0].Println;
end.
Версия "Нас так учили"
var
expression: string;
s_index: byte;
begin
s_index := 1;
readln(expression);
while expression[s_index] <> ' ' do begin
write(expression[s_index]);
s_index := s_index + 1;
end;
end.
Объяснение:
Т.к по условию слово - последовательность непробельных символов, ограниченная пробелами или концами строки, то данная программа полностью игнорирует пунктуацию и считает любой символ частью того слова, с которым он не разделён пробелом.
ответ:Код верный, ответ Большее число 12
print ("Введите два числа")
a = int(input("a="))
b = int(input("b="))
if a>b:
m = a
else:
m = b
print ("Большее число", m)
Объяснение: