Даны две фамилии (вводиться с клавиатуры ) определит какая из них длинее. прошу , надо.

1символ 8бит посчитаешь , а так у которой больше букв та и длинее о.о

Гасымов и наджаф гасымов длинее

Const       n = 10; var       i, d, k: integer; begin       for i : = 1 to n do       begin               readln(d);               if d < 0 then k : = k + 1;       end;             if k < = 5 then                 writeln('правда')       else               writeln('не правда'); end.

Делаем программу с трассировкой и все хорошо видно. var a: array[0..10] of integer; var i: integer; begin   writeln('первый цикл');   for i: =0 to 10 do begin       a[i]: = i + 1;       writeln('i=',i,', a[',i,']=',a[i])       end;   write('массив: '); a.println;   writeln('второй цикл');   for i: =0 to 10 do begin       a[i]: = a[10-i];       writeln('i=',i,', a[',i,']=',a[i])       end;     write('массив: '); a.println end. результат первый цикл i=0, a[0]=1 i=1, a[1]=2 i=2, a[2]=3 i=3, a[3]=4 i=4, a[4]=5 i=5, a[5]=6 i=6, a[6]=7 i=7, a[7]=8 i=8, a[8]=9 i=9, a[9]=10 i=10, a[10]=11 массив: 1 2 3 4 5 6 7 8 9 10 11 второй цикл i=0, a[0]=11 i=1, a[1]=10 i=2, a[2]=9 i=3, a[3]=8 i=4, a[4]=7 i=5, a[5]=6 i=6, a[6]=7 i=7, a[7]=8 i=8, a[8]=9 i=9, a[9]=10 i=10, a[10]=11 массив: 11 10 9 8 7 6 7 8 9 10 11