Укощея бессмертного есть 10 сестер, младшей 100 лет, старшей 1100. в каком классе учится старшая сестра, если известно, что в школу она пошла в 111 лет.

Ответ: в 10 классе учится старшая сестра.

Program pr; uses crt; var chislo, sum1, sum2, i: integer; begin writeln ('введите номер билета'); readln (chislo); if (chislo> 999999) or (chislo< 100000)     then  writeln ('такого билета нет')   else          begin             sum1: =0;             for i: =1 to 3 do                 begin                     sum1: =sum1 + (chislo mod 10);                     chislo: =chislo div 10;                   end;             sum2: =0;             for i: =1 to 3 do                 begin                     sum2: =sum2 + (chislo mod 10);                     chislo: =chislo div 10;                   end;             if (sum1=sum2)                  then writeln('билет счастливый')                  else writeln('билет несчастливый');           end; readln; end.

Решение 1-й : //pascalabc.net //naaman var       i, n : integer; begin       i : = 0;       repeat             write('введите число > ');             readln(n);             if (n > 0) then                   if (n mod 2 = 0) then                         if (n mod 3 = 0) then i : = i + 1;       until (n = 0);       writeln('количество чётных чисел, кратных 3: ', i) end. для решения второй нужно заменить (n mod 2 = 0) на (n mod 2 = 1) и (n mod 3 = 0) на (n mod 7 = 0).