Tg x + ctg x написать чему равно..

1. var   s: string;   i, count: integer; begin   writeln('vvedite stroky: ');   readln(s);   for i : = 1 to length(s) - 2 do       if copy(s, i, 3) = 'abc' then           count : = count + 1;   writeln('kol-vo: ', count); end. 2. var   s1, s2: string;   i, len1, len2: integer; begin   writeln('vvedite stroky 1: ');   readln(s1);   writeln('vvedite stroky 2: ');   readln(s2);   len1 : = length(s1);   len2 : = length(s2);   if len1 > len2 then writeln('1 stroka dlinnee')   else if len1 < len2 then writeln('2 stroka dlinnee')   else writeln('dlini strok ravnie') end. 3. var   s1, s2, s3: string; begin   writeln('vvedite stroky 1: ');   readln(s1);   writeln('vvedite stroky 2: ');   readln(s2);   s3 : = s1[1] + s1[2] + s2[1] + s2[2];   writeln('novaja stroka: ', s3); end.

Это бейсик dim a(1,5) print "введите элементы массива" for i=0 to 1     print "строка "; i     for j = 0 to 5         print "введите элемент "; j         input k         if k mod 5 = 0 then             a(i,j) = k - 3         else             a(i,j) = k         endif     next next print "печать изменённого массива" for i = 0 to 1     print     for j = 0 to 5       print a(i,j); " ";     next j next i end