Выведите на экран все трехзначные числа, где хотябы две цифры повторяются. программа в паскале.​

Dial-up - соединение через телефонную линию на той же частоте что и сам телефон, поэтому при таком подключении телефнная линия занята adsl- асинхронная технология передачи данных, т.е. скорость входа и выхода отличаются, причем зачастую довольно неплохо tcp/ip- протокол контроля доставки пакета и присвоения адреса ip http- протокол передачи данных для гипертекстовых документов ftp - файловый протокол передачи pop - протокол получения электронной почты smtp - протокол отправки эл. сообщений dtm - протокол динамической коммутации каналов

1. "школьное" решение // pascalabc.net 3.0, сборка 1064 var   i,n1,n2: integer;   s: longint; begin   write('введите интервал для вычисления суммы: '); read(n1,n2);   s: =0;   if n1 mod 2 = 0 then i: =n1 else i: =n1+1;   while i< =n2 do begin s: =s+i; i: =i+2 end;   writeln('сумма четных чисел в интервале равна ',s) end. тестовое решение: введите интервал для вычисления суммы: 7 14 сумма четных чисел в интервале равна 44 2. современное решение // pascalabc.net 3.0, сборка 1064 var   n1,n2: integer; begin   write('введите интервал для вычисления суммы: '); read(n1,n2);   if odd(n1) then inc(n1);   writeln('сумма четных чисел в интервале равна ',range(n1,n2,2).sum); end.