Циклdo ... while. Преобразование целого в строку

Цикл с предусловием реализуется в языке программирования Pascal с помощью оператора while.
Синтаксис:

Оператор while состоит из заголовка и тела цикла. Операторы, находящиеся в теле цикла, обязательно заключаются в операторные скобки begin и end.
"Условие выполнения цикла" - это выражение логического типа (булевское выражение) выражение отношения или логическое выражение, принимающее одно из двух значений: true или false.
Если проверяемое условие ложно изначально, то операторы входящие в тело цикла не выполняются, проход по телу цикла не осуществляется и выполняются инструкции, находящиеся после операторной скобки end.
Служебные слова while и do означают "пока" и "делай".

Блок-схема

Пример задачи на использование цикла с предусловием

Пример №1

Постановка задачи:

Дано целое число N (> 0). Найти наименьшее целое положительное
число K, квадрат которого превосходит N: K² > N. Функцию извлечения
квадратного корня не использовать.

Блок-схема:

Кодирование

program while7;

var

n,k,p:longint;

begin

write('Введите число N > 0, N = '); readln(n);

k:=0;

while p < n do

begin

p := k * k;

k := k + 1;

end;

writeln('наименьшее целое положительное число K, квадрат которого превосходит ',

n, ' равен K = ',k)

end.

Тестирование