// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var s:=ReadlnString('Введите текст:');
Writeln('Слова, в которых совпадают первая и последняя буквы:');
s.ToWords.Where(x->x[1]=x[x.Length]).Println(NewLine)
end.
<u><em>Тестовое решение</em></u>
Введите текст: космос азбука баобаб импульс озеро довод конец
Слова, в которых совпадают первая и последняя буквы:
азбука
баобаб
озеро
довод
Var i : Integer;
Begin
For i:=100 to 999 do
If i=(sqr(i) mod 1000) then Writeln(i,' * ',i,' = ',sqr(i));
end.
Результат:
376 * 376 = 141376
625 * 625 = 390625
Округляем к большему
log2 45 Получаем 5 (бит)
Не носится по кабинету, а то снесешь комп и заставят платить)
В 32. Надо разделить числа, тогда будет известно, во сколько раз.