Известняк белый, светло-серый, желтоватый. твердый, не имеет блеска<span>
гипс белый, светло серый, твердый, не имеет
песок разного цвета(черный, желтый итд), рыхлый, блеск имеет
нефть </span>буро-коричневый, бесцветный, жидкий. не имеет<span>
кварц </span>Бесцветный, белый, фиолетовый, серый, жёлтый, коричневый, твердый. имеет Стеклянный блеск.<span>
базальт темные цвета, твердый, </span>блеск<span> светло-желтоватого или светлозеленоватогоцвета</span><span>
гранит. </span><span>Цвет гранита имеет очень широкий цветовой диапазон. Твердый, не имеет</span>
PascalABC.NET 3.2:
1.
begin
write(ReadString.indexof(':'))
end.
<em>Пример ввода</em>: 1234:56
<em>Пример вывода</em>: 4
2.
begin
write(readString.ToWords.Select(x->x[1]).JoinIntoString)
end.
<em>Пример ввода</em>: Как любила язвить королева, собаки апплодировали
<em>Пример вывода</em>: Клякса
3.
begin
write(readString.ToWords.Select(s->Length(s)).Max)
end.
<em>Пример ввода</em>: Не хочу учиться хочу жениться
<em>Пример вывода</em>: 8
4.
Если там нет знаков препинания:
begin
write(readString.ToWords.Select(s->ReverseString(s)).JoinIntoString(' '))
end.
Если там есть знаки препинания, которые надо оставить на месте, то настолько же короткого решения мне не придумалось, можно так:
begin
var str := readString + ' ';
var m := '';
for var i := 1 to str.Length do
if str[i].IsLetter then
m += str[i]
else
begin
write(ReverseString(m), str[i]);
m := '';
end;
end.
<em>Пример ввода</em>: амар алым умам
<em>Пример вывода</em>: рама мыла маму
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var k:=ArrRandom(ReadInteger('n='),-50,50); k.Println;
var (u,j):=ReadInteger2('Введите u и j через пробел:');
Writeln('Cумма первых ',u,' элементов ',k.Take(u).Sum);
Writeln('Произведение последних ',j,' элементов ',
k.TakeLast(j).Aggregate(BigInteger(1),(p,q)->p*q));
end.
<u>Пример</u>
n= 20
39 -18 -16 5 -30 50 -10 -9 34 -33 31 -26 31 -29 8 48 38 37 32 22
Введите u и j через пробел: 12 13
Cумма первых 12 элементов 17
Произведение последних 13 элементов 2781117283830792192
str_1 = input("text: ")
print(str_1.split(" ")[0])