var c: char; s: string; i,k,p: integer; begin readln(c); {чтение заданного символа} readln(s); {чтение заданного слова} p: = pos(c,s); {определяем позицию символа} if (p=0) then {функция вернёт 0, если символ не будет найден} writeln('такого символа в слове нет.') else {если символ есть, то } begin writeln('указанный символ расположен на позиции: ',p); k: = 0; {k хранит количество вхождений} p: = length(s); {p хранит длину строки(слова)} for i: =1 to p do {пробегаем по всем символам слова} if (s[i]=c) then inc(k); {если символ совпадает, увеличиваем на 1 переменную k} writeln('количество вхождений данного символа: ',k); end; end.
Ответ дал: Гость
var
x,y,z: longint;
begin
readln(x,y,z);
if (x> 100)or(y> 100)or(z> 100) then writeln('false')
else writeln('true');
end.
Ответ дал: Гость
24576/8=3072 символа
ответ: 3072 символа
Ответ дал: Гость
я так понимаю это раздел 3 .10
про животных в каждом множестве ?
множества:
животных на рисунке-10
птиц -5
животных, кот.умеют летать-6
птиц которые умеют летать-3
птиц которые не умеют летать -2
животных,которые не летают и не птицы-2
слева на рисунке :
в круге вне овала- пингвин , страус
на пересечении круга и овала -сова, попугай лебедь
в овале вне круга - шмель стрекоза, летучая мышь
в квадрате за пределами круга и овала -змея . белка
Популярные вопросы