Цикл продолжается до тех пор, пока "x" и "y" больше либо равны 1. Если какая-либо из переменных не удовлетворяет условию, то цикл заканчивается.
"Div" - целочисленное деление (6 div 3 = 2).
Решение смотри во вложении.
<em>// PascalABC.NET 3.2, сборка 1436 от 01.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadlnString('Вводите:').ToWords.Select(w->w.ToLower)
.Where(w->w=w.Inverse).Println
end.
<u>Пример</u>
Вводите: Шла Алла по дороге видит дед несет наган
алла дед наган
№1
<span>a) 12288 Кб = (12288 : 1024) Мб = 12 Мб
</span><span>b) 1024 Гб = (1024 * 1024) Мб = 1048576 Мб
</span><span>c) 2097152 байт = (2097152 : 1024 : 1024) Мб = 2 Мб
№2
</span><span>a) 3,2 Мб = (3,2 * 1024 * 1024 * 8) бит = 26843545,6 бит
</span><span>b) 2 Кб = (2 * 1024 * 8) бит = 16383 бит
№3
</span><span>a) 6144 Кб = (6144 : 1024) Мб = 6 Мб
</span><span>b) 2048 Гб = (2048 * 1024) Мб = 2097152 Мб
</span>c) 3145728 байт = (<span>3145728 : 1024 : 1024</span><span>) Мб = 3 Мб
№4
</span><span>a) 1,4 Мб = (1,4 * 1024 * 1024 * 8) бит = 11744051,2 бит
</span><span>b) 8 Кб = (8 * 1024 * 8) биьт = 65536 бит</span>
<span>Что мы знаем о войне Немного
По рассказам бабушек и мам
Знаем, что надежда и тревога
Об руку ходили по домам
Слухи зависали как знамена
Дымом застилался горизонт
Многоверстный и многоименный
Жаждал крови ненасытный фронт
А из тыла за волной волна
Шла латать верховные промашки
Всасывала мальчиков война
И выплевывала мертвые бумажки
Каждый шаг к победе ли к беде
Сводки измеряли расстояньем
Даже самый распобедный день
Был комуто вечным расставаньем
Годы возвращающий экран
Очевидцев честные романы
Все равно останутся обманом
Ссадины не заменяют ран
Только изредка за толщей дней
Вдруг всплеснёт сирены голос лютый
Замирая криками детей
И застынет сердце на минуту
</span>