Вывести на экран все трехзначные числа в которых хотя бы две цифры повторяются задачка в паскале
Вывести на экран все трехзначные числа в которых хотя бы две цифры повторяются задачка в паскале
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы