Нужно решать варианты индивидуальных заданий? labN 3Vetvlenie.doc: Нужно определить, что число "перевёртышь". Правильно? var n:string; begin readln(n); if (n[1]=n[4]) and (n[2]=n[3]) then writeln('YES') else writeln('NO'); end.program labN3Vetvlenie1; var n:word; begin readln(n); case (n mod 10) of 1:writeln(n, ' год.'); 2..4:writeln(n, ' года.'); 0,5..9:writeln(n, ' лет.'); end; end.program labN3Vetvlenie2; var k,l,m,n:1..8; begin readln(k,l,m,n); if (k+l) mod 2=(m+n) mod 2 then writeln('YES') else writeln('NO'); end.program labN3Vetvlenie3; Добавлено спустя 45 секунд: А это для какого класса задания?