Составил программу под : даны два натуральных числа m и n проверить есть ли в записи числа m цифры числа n, но на экран не выводится ответ, найти ошибку. var n, m, n1: integer; f: boolean; begin readln (n, m); f: =false; while n> 0 do begin n1: =n; while n1> 0 do begin if m mod 10=n1 mod 10 then f: =true; n1: =n1 div 10; end; n1: =n1 div 10; end; if f=true then write('да') else writeln ('нет'); end.

Type   date = record       day: 1..31;       month: 1..12;           year: integer ;           end; var     a: date : = (day: 8; month: 7; year: 2012);   b: date : = (day: 6; month: 7; year: 2012);       c: integer; procedure outdate(d: date); begin   with d do writeln(day, '.', month, '.', year); end; begin if a.year > b.year then c: =1                      else c: =-1 ;                                           if a.year = b.year then                                          if   a.month > b.month then                                          c: =1                                                                     else c: =-1;                                                                         if a.year = b.year then                                                       if a.month = b.month then                                                           if a.day > b.day then c: =1                                                                             else c: =-1;   if a.year = b.year then                                                                   if a.month = b.month then                                                                       if a.day = b.day     then c: =0;                                                                                                                                                               outdate(a);                                                                                 outdate(b);                                                                                 writeln('otwet: ', c); end.

Компьютер будущего будет, скорее даже не компьютером в нашем понятии, а отдельной сферой жизни. это будет общедоступная сеть, связываться и которой можно будет с мысленных сигналов-импульсов, либо голосовых команд. как таковое устройство будет представлять из себя микрочип, подсоединенный к организму с которого можно будет выходить в это виртуальное пространство, функции которого будут объединять усовершенствованное подобие интернета, и множество уже существующих и новых функций компьютера, телефона, прочей техники и программного обеспечения   в принципе.