Напишите программку, которая определяет, верно ли, что введённое число содержит две

"Задачка добежать из пт А в пункт Б за 15 минут. Расстояние между ними составляет 2.1 км. Бегать Надобно В МЕШКЕ!"

Простите,но я не очень разумею вас

Да не шибко разумное условие. Если надо решить задачку - означает, надобно решить. А искусственно в ней условия ставить (цикл While) - это условие не просто бежать, а в мешке. Это от бессилия автора придумать задачку, в которой цикл While действительно будет наихорошим выбором.

Разумеете, когда Вам необходимо сделать чашечку кофе, вовсе не непременно ставить условие, как именно это необходимо делать. Для вас ведь на месте виднее, не так ли?

а эту программу можно написать с циклом постусловия? или каким еще циклом можно составить эту программку?

Есть масса методов написать эту программку. Цикл While - не самый нехороший тут, но я вообще против навязывания способа решения. Это приучивает к иждивенчеству. Во взрослой жизни Для вас никто не будет давать подсказку, как поступать - это одна из необыкновенностей взрослой жизни.

Вы обязаны, проанализировав задачку, сами найти, как здесь удобнее получить требуемое.

Причем не мне удобнее, не вашему учителю, а собственно Для вас.

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программка не работает, обновите версию!

begin

 var n := Абс(ReadInteger('Введите целое число:'));

 var yes := False;

 var n1 := n mod 10;

 n := n div 10;

 while n gt; 0 do

 begin

   var n2 := n mod 10;

   if n1 = n2 then

   begin

     yes := True;

     break

   end;

   n := n div 10;

   n1 := n2

 end;

 if yes then Print('Правильно')

 else Print('Ошибочно')

end.

А еще это можно решить, к образцу, так:

begin

 var s := Abs(ReadInteger('Введите целое число:')).ToString;

 if s.Pairwise.Any(t-gt;t[0]=t[1]) then Print('Правильно')

 else Print('Ошибочно')

end.