Регистрация
Murmurmur29
30.04.2022 16:25
Информатика
Есть ответ 👍

Впионерском лагере "дубки'' в смене актива отдыхали: 25 отличников, 23 победителей олимпиад и 12 спортсмена. 10 человек были и отличниками и победителями олимпиад, 5--отличниками спортсменами 8--спортсменами и победителями олимпиад,3--и отличниками и спортсменами и победителями олимпиад.сколько отдыхали в лагере?

118
138
Посмотреть ответы 1

Ответы на вопрос:

НЕЗНАЙКА123987
НЕЗНАЙКА123987
4,5(48 оценок)
Var s,tmp: string;       i,n: integer;       flag,word: boolean; function letter (const let: char): boolean;   begin     if ((let> ='a') and (let< ='z')) or ((let> ='a') and (let< ='z')) then letter: =true       else letter: =false;   end; begin   readln (s);   s: =s+' ';   n: =length(s);   flag: =false;   for i: =1 to n do     begin       if (letter(s[i])) and (not flag)  then       begin            flag: =true;         tmp: ='';         word: =false;       end else if (not letter(s[i])) and (flag) then       begin          flag: =false;         if (word) and (not (tmp='')) then writeln (tmp);       end;       if (flag) then       begin            tmp: =tmp+s[i];           if (s[i]='k') then word: =true;       end;       end; end.

Популярно: Информатика