Старшеклассники заполняли анкету с вопросами об экзаменах по выбору. оказалось, что выбрали они информатику, и обществознание. в классе 38 учеников. обществознание выбрал 21 ученик, причем трое из них выбрали еще и информатику, а шестеро-еще и . один ученик выбрал все три предмета. всего информатику выбрали 13 учеников, пятеро из которых указали в анкете два предмета. надо определить, сколько же учеников выбрали .

Решим через круги эйлера. общество = c = d + f + e = 21. информатика = g + f + d = 13. все три предмета = f = 1. общество + информатика = d + f = 3. общество + = f + e = 6. = g + f + e - ? d = (d+f) - f = 2. g + f = (g+f+d) - d = 13 - 2 = 11. e = (f+e) - f = 6 - 1 = 5. = g + f + e = 11 + 5 = 16. ответ: 16.

for i : = 1 to length(s) do

begin

      res : = res + s[i];

      if i mod 2 = 0 then

            res : = res + s[i];

end;

writeln(res);

 

 

i : = pos(" ",s); {ищем первый пробел}

delete(s; i; 1); {удаляем первый пробел}

i : = pos(" ",s); {ищем второй пробел, котрый теперь первый}

writeln(s[i-1]); {выдаем знак который находится перед пробелом}

 

 

 

program e7;

var x: integer;

begin

writeln('vvedite znachenie gradusnoi meri ugla');

readln(x);

if a=180 then writeln('razvernutii') else writeln('ne razvernutii');

readln;

end.

 

если вы работаете в школе на программе freepascal, то перед "end" можно "readln" не писать. если же вы работаете на программе turbopascal, "readln" перед "end" обязательно нужно писать.