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

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

задачка в паскале
- Предмет:
  Информатика
- Автор:
  leahhsxv
- 5 лет назад

Ответы 1

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.
- Автор:
  irenemorrison
- 5 лет назад
- 0
Добавить свой ответ

Еще вопросы

How much to ban the user?

1 hour 1 day 100 years