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

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

Question

Информатика

Вишута

11 октября, 00:25

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

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

+3

Ответы (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.

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

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

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