// PascalABC.NET 3.0, сборка 1128
begin
var s:='Это наша тестовая строка ищем слова из четырех букв.';
Copy(s,1,s.IndexOf('.')).ToWords.Where(x->x.Length=4).Println
end.
<u><em>Тестовое решение:</em></u>
наша ищем букв
Ответ:
Объяснение: Она самая сказочная из всего, что меня окружает." Уже вслух сказал сказочный бегемотик своим сказочным голосом. Как хорошо жить в сказочном мире!
// PascalABC.NET 3.3, сборка 1600 от 23.12.2017// Внимание! Если программа не работает, обновите версию!
var i:byte;
begin
i:=1;
while i<=5 do
begin
writeln('Imya');
i:=i+1;
end;
end.
21 потому что если воробьи перепрыгивают с доски на доску (соседнюю) то получается они двигаются назад так и получается"21" с начала один раз в право потом один раз в лево двое из них не двигаются назад они стают на месте