1. 

   Ека_терина New Member

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

    

   Ека_терина, 8 фев 2010

   #1
2. 

   maxexorcist New Member

   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.

    

   maxexorcist, 8 фев 2010

   #2

Ваше имя или e-mail:

Пароль:

Забыли пароль?

Запомнить меня