Определения понятия слова принтер нужно

Принтер   - , а, м., инф. печатающее устройство в компьютерах. принтерный - относящийся к принтеру, принтерам.

Var s,s1,s2: string; i: integer; begin writeln('введите строку: '); readln(s); s1: =s; while pos(' ',s1)> 0 do delete(s1,pos(' ',s1),1); writeln('строка без пробелов: '); writeln(s1); s2: =''; for i: =1 to length(s1) do   if s1[i]='.' then s2: =s2+'. ' else s2: =s2+s1[i]; writeln('строка с пробелами после ".": '); writeln(s2); end. пример: введите строку: 1. 2. 3. 4. 5. вышел зайчик. погулять. строка без пробелов: 1.2.3.4.5.вышелзайчик.погулять. строка с пробелами после ".": 1. 2. 3. 4. 5. вышелзайчик. погулять. 

1)

program pr; uses crt; var a,k,k1: integer; beginwriteln('введите a'); readln(a); k1: =1; k: =0; while (a< > 0) and (k1< 1000) dobeginif (a< 0) and (a mod 2=0) and (abs(a)< =30000) then k: =k+1; k1: =k1+1; readln(a); end; writeln('k=',k); readln; end.

 

2)program pr; uses crt; var a,k,k1: integer; beginwriteln('введите a'); readln(a); k1: =1; k: =0; while (a< > 0) and (k1< 1000) dobeginif (a> 0) and (a mod 2< > 0) and (abs(a)< =30000) then k: =k+1; k1: =k1+1; readln(a); end; writeln('k=',k); readln; end.