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

задачка в паскале

Question

Информатика

Ростислав

19 сентября, 15:20

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

задачка в паскале

+1

Ответы (1)

Знаешь ответ?

Генюша · Answer 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.

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

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

задачка в паскале