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>: рама мыла маму
Массив создается и заполняется рандомными числами до 10
var
massive: array[1..20] of Integer;
i:Integer ;
summ:integer;
begin
WriteLn('все элементы');
for i:=1 to 20 do
begin
massive[i]:=Random(100);
write(massive[i],', ');
end;
for i:=1 to 20 do
begin
if massive[i] mod 5 = 0 then
summ:=summ+massive[i];
end;
writeln('сумма: ',summ);
end.
Держи,успехов:):):):):):)
Ок
(Класс объекта) Класс — не информативно можно описать что это разновидность абстрактного типа данных в объектно-ориентированном программировании, характеризуемый способом своего построения. ... пойдёт?
1) Личинка
2) Гусеница
3) Кокон
4) Бабочка