Допиши второе слово пары: гора - лес - заяц - птица - ручка - утро - вечер - день - минута - час -

гора - хребет, лес - деревья, заяц - животное, птица - ястреб, ручка - карандаш, утро - вечер, вечр - день, минута - секунда, час- минута

program tablica; var      n: integer;       i: integer; begin            n : = 15;             for i : = 1 to 17 do      begin            write(n, '*', i, '=', n*i, '  ');             write(n+1, '*', i, '=', (n+1)*i, '  ');             writeln(n+2, '*', i, '=', (n+2)*i);       end;                   readln; end.

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.