Вывести на экран все трехзначные числа в которых хотя бы две цифры повторяются задачка в паскале

Ответы:

Вадик Поляков

04-04-2017 09:39

var a,b,c,d:integer;begin a:=100; repeat b:=a mod 10; c:=(a div 10) mod 10; d:=((a div 10) div 10) mod 10; if(b=c) or (c=d) or (b=d) then writeln(a); inc(a); until(a>999); readln;end.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя Лиза Котик

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Вывести на экран все трехзначные числа в которых хотя бы две цифры повторяются задачка в паскале» от пользователя Лиза Котик в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!